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ABSTRACT 


An implementation of a multiuser timeshared operating 
System for the Sycor 440 Clustered Terminal Processing 
fyGetem is described. Utilizing an 8080 microorocessor, this 
System provides a virtual operating environment consisting 
of a console device, eight floppy aisk drives, and up to 3e 
Virtual flopoy disk images on a five meqabyte movaolewhead 
disk. liq “Se \fel’ol 12 3) collar a Centronix serial orinter is 
incoroorated into the svstem as a cedcicatea device for any 
one of up to four concurrent users. The operatina system 
supports utility orcgqrams incluaing an editor, assembler, 
and debugger whicn facrilyteate microcomputer orogram 


developrent at tne Naval Postaraduate Scnool. 
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I. INTRODUCTION 


A. BACKGROUND 


ineene Summer of 1976 the Comouter Science Denartment at 
the Naval Postgraduate School (NPS) acquired a Sycor Model 
G4Q Clustered Terminal Processing System for use in the NPS 
microcomputer laocratory. The Sycor 440 utilizes an Intel 
8080 LSI chip as the CPU of a special puroose microcomouter 
system designed primarily for data entry apolications. Tp, 
meemtion to the 8080 CPU, the Svcor system nardware 
configuration includes ae five megabyte movadle=head disk, 
o4K of random access memory (RAM), a cassette tape drive, 
mmo tour sycor 4412 disolay terminals consisting of a 
Keyboard and cathode ray tube (CRID “aisolay device. Ccher 
System devices incluace a model 340 communications terminal, 
SB Centronix serial orinter and an RS-*#232 asynchronous 
Gommunication interface. As part of the Model 440 System, 
sycor supplied a comprehensive package of system software. 
Most of this software was designed to supoort aoplications 
in the data entry field which comoriseaq tne Sycor 4440's 
orimary market. 

While the Sycor 440 made a significant addition to the 
hardware comolement of tne NPS microcomputer laboratory, a 
great deal of effort was needea to integrate the system into 


the microcomouter laboratory to ensure that maximum benefit 





would be derived from the new equipment. The first step in 
the integration of the Sycor 440 haraware within the 
microcomputer laboratcry was undertaken as a thesis project 
moe the winter of [!9/77. Kenneth J. Grown and Davia R. 
Bullock deserve a great deal of credit for the conception 
and the design of the Microcomputer Timeshared System (MTS). 
Their thesis work is contained in Ref. 1. MIS was developed 
as a virtual machine monitor (VMM) to support a user 
operating system for microcomouter orogram develooment. An 
figeeecdeoth description of the system is given in Chapter IIl. 
Because much of MTS naa not been debugged and pecause it did 
not support an ooerating system which would accommoaate 
Student user thesis work was continued in the spring of 19/7 


to accomplisn these tasks. 


Oe GOALS AND OBJECTIVES 


The primary goal o f this thesis croject was 


implementation of an operating system on the Sycor 440 


microcomputer system capable of SuooDOortina program 
develooment at the NPS microcomputer aporatory. 
Realization o f this goal required the gebvugging,s 


modification, Son womolitteation of the basic MIS procram. 
Since the amount of deonugaing effort required to achieve tne 
primary objective of the thesis could not be accurately 
aetermined, several sunogoals were estabdlisneag which would be 
undertaken if adequate time was available. These subgoals 


included the intearation of the serial orinter, the cassette 





tape drive and the RS=#232 compatible asynchronous 


communication interface with the basic MTS orogram. 


fee FROGLEM DEFINITION 


Since an undetermined proportion of the work requireu to 
accomplish the orimary goal o f this thesis woula oe the 
debugging of a major software project, it was decided to 
improve upon the debugging tools availaole. At the outset, 
the only tool available was the Sycor Model $40 
Communications ferminal. This terminal was desianed for an 
earlier version of tne Sycor 440 system and the scope of its 
useful debuaqging commands was quite limited. Therefore, the 
development of the MIS Debuager Tool (MDT) was undertaken. 
written in a systems development lanquage called ML=-&80, 
meet tem oy L.R.8. Pedqroso at NPS in !975, this tool greatly 
assisted in the accomolishment of the thesis goals. A 
detailed Geseprotion Cf tl—30 15 Comtained in Ref. 11. 

Once debdugaing o f the basic MES program was 
accomolished, several test programs were written to check 


me various MIS service calls: in particulars the Grrsik and 


terminal 1/0 fUNCt IONS « Flawless ooneration of these 
routines was required prior to imolementing an operating 
System with MTS. A detailed description of the steps 


required for the imolementation of a user operatinaq system 
on the Sycor 4490 Clustered Terminal System is contained in 


the later chapters. 
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II. SYCOR 440 HAROWARE DESCRIPTION 


The Sycor 440 Clustered Terminal Processing System 
Bocatead in thie NPS microcomputer laboratory consists of a 
Centronix serial orinter, four display terminals, the Sycor 
model 340 communications terminal, an RS=-e5e asynchronous 
communications interface, ang a desk=hiaqn control unit 
containing a cassette drive. Tivemeoa0 control unit comtains 
the system loaqic and memorys consisting of two Intel 8080 
processor chips, 64K of random access memory (RAM), driver 
interfaces for all perionerals, a five megabyte miniwaisk 
and the cassette tape drive. 

Ome of the twie 80G0°s located im thes 440 control unit 
serves as a controller for the five megabyte minizdisk. The 
miniwdisks which 1s the primary auxiliary storage gevice for 
the 440 system holds the system software including both the 
Sycor and the MTS onverating systems as well as the users! 
files. The miniwrdisk 1s a single platter, movable head disk 
which 1S Seaqamented in 5l2e byte sectors. There are  8&U0 
tracks on the disk with 13 sectors per track. Data transfer 
oetween RAM ana the mini-disk is via direct memory. access 
(DMA). Ihe miniedisk controller communicates with the host 
8080 CPU through a 13 byte disk control clock (0C8) located 
at a fixed location in memory [1]. 

The other 80890 chip found in the 440 control unit serves 


as the system CPU, The 8080 intruction set consists of 78 


ue 





data transfer, arithmeticr logqicals branch, stack, I/0,- and 


machine control last ructi1oens (8). A comprehensive set of 
interrupts including timer, auxiliary storage, and 
peripheral device interrupts are orovided by the Svcor 440. 


Control information and data are excnanged between the 8080 
CPU and the Sycor oerioheral devices through the I/U ports, 
or latchesr provided on the 6080 chio. 

The Sycor 440 system supports Synchronous and 
asynchronous communication devices, Wipes to, evaontrearsp lay 
terminals, serial and line orinters and card readers. 
Presently, the Sycor 440 system at NPS 18s configured with 
four 4412 disolay terminals consistina of a keyboard and CRIT 
disolay screen. Fach terminal 18 capable of displaying an 
eight line image of a 5/6 byte terminal buffer which 1S 
located in RAM, Also included is a Centronix serial printer 
which allows hard copy outonut of files under both the Sycor 
and the MTS operating systems. In addition to tne minicg 
disk, auxiliary storace on the Sycor 440 ig providea by a 
cassette drive which is located in the control unit. This 
Grive provides a means for loadina the Sycor system software 
onto the alam Gil) Ske The current Sycor 440 systems 
configuration also includes an Rowe oe communications 
interface which can, via telephone line, provide a data link 
to both the PDP-11i minicomouter anda the school's IBM 3600. 
Finallys the Sycor 440 is equipped with a model 340 
communications terminal. This device can be utilized as a 
hardware devougger ano it also orovices a software package 


which includes orovisions for loading and dumping nex format 


li 
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program files between cassette tane and 440 RAM and (for 
translating hex format tapes into the Sycor relocatable 
mopmat. this jast furction of the $40 terminal ts imoortant 
since aminizaisk file must be in tne relocatable format to 
be properly loaded into RAM by the Sycor Loader. 

The Sycor 440 system can suoport other pericherals 
including magnetic tace drives, floopy disk drives, ana card 
readers? however, these devices are not oresently included 


in the Sycor hardware tin the NPS microcomouter laboratory. 





iio’ bo DESCRIPTION 


A. BACKGROUND 


MiS was developeaqc in order to integrate the Sycor 440 
System into the tutorial and development activities at WPS. 
Whenever possible, MIS utilizes the Sycor file system to 
avoid the duplication of system facilities. MIS provides a 
man=machine interface at the display terminals which 18s 
simole, flexible, ang convenient, incorporating the best 


features of interactive comouter systems at NPS. 


B. MTS INTERNAL DESIGN FEATURES 


MTS was designed to provide a timeshared, VIP CCUG! 8080 
microcomputer environment ON a microcomputer system 
development. As a timesharing system, MTS 18 characterized 
by the following features: 

(1) the use of Swapring to imolement multiprogramming 

(2) the use of interrupt driven processor management based 
On a fFOoUNa=robin scheduling algorithm 

my the use of virtua} flopoy disks as the orimary 
auxiliary storage medium 

(4) the sharing of a single dedicateao I/0 device oy 
multiole users [1]. 

A brief description of each of these features iS given dn 


the remainder Otenis —enaoter. 
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Swapping was chosen as the memory management technique 


employea by MTS. Since the Sycor 440 does not provide 
address translation hardware, Ne was not possible to 
implement the techniques of either oaging or dynamic 


Sartitioning of memory. Static partitioning of memory was 
considered, but since the Sycor 440 provides no memory 
protection in the form of bounds registers, one task 
executing im memory could access another without detection. 
Swaoping provides physical as wel] as logical seperation of 
user tasks. BSsechmotruo to four tasks has a mini=disk file 
associated with it. At any time a task imaqe may resiae in 
KAM or in its swao file on the miniedisk, but at no time can 


two task images reside 1n memory simultaneously? thus, task 


Hategrity iS maintained. An undesirable effect of this 
design is that the minisaisk transfer rate limits system 
resoonsiveness. An improved mint =disce seomtro! ler is 


currently being develcped voy Sycor Ine. Initial tests nave 
shown that this controller will imorove the ninisdarisk 
transfer rate oy a factor of from three to four. 

In order to guarartee ecuitabdle allocation of the CPU 
resource to ali active tasks, orocess management of MIS was 
designed around an interrupt driven task scheduler. A task 
retains control of the CPU until a nardware timer generates 
an interrupt, signaling the ena of the task's timeslice. 
The timer interrugot handler then transfers control to the 
task scheduler to select a new task for execution. To 
protect the active task, a software lock is set to prevent 


Swapping until the active task returns from an MTS service 





eat} at which time swapping 1S enabled. 

Virtual floppy disks orovide auxiliary storage for user 
programs. These simulated disks consist of 77 tracks, each 
containing 26 sectors. Each sector 1s made up of 128 bytes 
to give a total capacity of 256K bytes of storace. The size 
of the virtual disk storaaqe area was chosen to reflect the 
actual size of a onysical floopy disks but can be changed to 
any conveneient size. Transfer of information between 
memory and the virtual floooy disk 1s accomolished through a 
OMA onuffer in the user's memory space. MTS utilizes a 
mapping function to convert a sector adoress into a minic 
Meese sector mumber. Each user has up to eight virtual 
flopoy disk drives available for use with the virtual aisks. 

The last major MTS feature is the sharing of dedicated 
gevices by multiple users. Since theme COs tof | v2 
microcomputer CPU makes up sucn a small percentage of tne 
overall microcomouter svstem cost, mnultiprocessina, rather 
than multiporogramming, snould be the logical cnoice for tne 
Mesign of a timeshared microcomouter system. Since the 
implementation of this concept was not oossible witn the 
Sycor 44U0 hardware, “IS emphasizes the sharing of the 
remaining system resources. The sharing of the Sycor 440 
memory has already been discussed and is imolementeao with 
the use of swappings crovidina up to 48K of RAM for user 
programs. Sharing of the minicdisk auxiliary storage 15 
provided through tne use of the virtual floopy disk concept. 
MTS also allows for the sharina of the Centronix serial 


printer, which 1S Oaiscussed im chapter Ve A getailed 
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discussion and descrigftion of the original MIS desiqn and 
its implementation on the Sycor 440 nardware can be found in 
Ref. 1. 

Since MTS was desiaqned to support a user operating 
system, and since certain modifications and enhancements 
were necessary orior to incorporating an operating system 
with MIS, thes1s work was continued on the original MIS 
program. The remaining chaoters describe the steps which 
were taken to tntegrate an operating system into the Sycor 


Q4Q0 / WIS environnent. 
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IV. SYSTEM DEBUGGING TOOLS 


A. SYCUR HARDWARE 


Beetne outset of this thesis oroject, the task of 
deougging MIS and incorporating a user ooerating system 
seemed to ve a well aefined task; nNowever, it soon became 
aoparent that the tcols available for deougging MIS system 
code were extremely limiteg. The Sycor 340 communications 
Denmina!l provided the ability to halt program execution at a 
eeecified memory location or breakpoint, to examine tne 
contents of memory locations and to modify tne contents of 
memory locations orior to resuming program execution - 
Although these features oroved to ce extremely valuavle, 
greater aebugaing capability was necessary to realize tne 
thesis oojectives. Efficient deougging required tne ability 
to examine the general purpose registers and the program 
Status word (PSW) which contains the accumulator and the 
earner yr zero, oOarfity,r opolus, and minus mag 61S. lize 
effectively debuaq conditional loaicr, the ability to specify 
more than one breakpoint waS required. Other Henena ine 
functions which were needed included tne cacabilities of 
filling memorysr movino memory, and transferring information 


between minisdisk ana KAM, 
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B. MIS DEBUGGER TOOL (MDT) 


For the reasons listed above, the MTS Debugger Tool was 
developeaq as a first step in the thesis project. This 
Boe tware Coo! Was written as a distinct system module which 
jmmuerfaces directly with MIS. The program utilizes MTS 


service calls for disclay terminal and minisaisk I/0 and for 


other system functions. MDT imeorecomotes athe option of 
setting two breakpoints in memory to check program 
Sranching. Another feature of the MDT is the ability to 


meort or to resume execution On 3 system program with 
interrupts aisabdled. This feature was necessitated for 
deougging sections of MTS code where the system interruots 
are disabled. AGaiti oneal “Ole tacyliimtites ane lucer filling 
memoryr setting the contents of memory locations, disolaying 
contiquous 64 byte images of memory at the terminals readina 
a specified floppy disk from the minisdaisk into memory, and 
transferrina data between KAM and the mini-aisk. 

The MDT greatly enhanced tne debuagina phase necessary 
for providing an operating system on the Sycor 44U hardware 
for student use at NPS. The debuaqger resices in the system 
area of memory where it 1s stil! available shoulda the need 
for it arise. A detailed guide for the use of the MDT 15s 
contained in the comment section of the source orogram which 


fMenancluded with the VIS Program Listings. 


, 





Ve MIS ENHANCEMENT 


Developing the MTS debuager not only facilitated the 
debugging of MIS code, but it also nastened the remaining 
development of the basic MIS orogram. With the aid of MDdDT 
several procedures in the monitor and the service moauies of 
MTS were modified to accommodate an operating system. Major 
areas of modification to the original MTS code are discussed 


maeetne following sections. 


Beer dte INTEGRITY 


Procedures for the orotection,s unorotection, and 
@estriction of virtual floopy disks with a four character 
“passkey" were developed to replace the dummy orocedures in 
the original Miorcoce. [twas telt that the comoretion of 
these me nes, aniel provide for read and write protection 
of user file space, was essential since MTS woulda eventually 
support a multiuser environment. A getailed exolanation = of 


these MIS commands is presented in tne MIS User's Guide. 


fe JYOIEM LUAD PROCEDURE 


Another enhancement to “TS involved a modification to 
the MIS / SYCOR interface which permits the loading of MIS 
TrROom the Sycor 440 mniniedisk. This modification which was 


meage to the MIS initial orogram load routine causes a 


en 





relocation of MTS code from ic00H to OH itn memory as the 
system is loaGdeceumelmis Shift of code 16 necessary for the 
successful operation of MTS code. This change resulted in 
an improved user environment and eliminated a tedious five 
to ten minute load from cassette tave, replacing it with a2 
much simplified ten to fifteen second process. At the same 
time, this modification allowed for the gisconnection of the 
Sycor 34U communicaticns terminal which was used for loading 
MTS from cassette tape. Removing dependency on this major 
piece of system hardware is considered a significant system 


enhancement. 


Meee FRINTER INTEGRATION 


Momeene deouggimag of MIS code n@ared completion, a 
decision was made to incorporate the Centronix serial 
printer as part of the system. Previously, a microcomputer 
user who desired a hard cooy of a program neeced to 
interface with the POP-l1!1 minicomouter's line printer. 
Since there is only one gata transmission line between the 
POP-ll and the microcomouters located mn the NPS 
microcomputer lJlaboratoryr, only the user working at tne 
microcomputer system witn this data line connection could 
eecess the PDP=-t1's line orinter. Thus, a user witn doth 
microcomputer and ang PDF-1!1 familiarity could, after some 
inconvenience, obtain a orinted Jistinae Obviously, this 
user environment 1S not Satifactory for the programmer . who 


gGesires to work only with a microcomouter system. Por this 


el 





reasonr line orinter incorporation with MTS was considered 
essential. 

Certain factors oreatly affected the design of the 
orinter interface with MTS. Originally, ene Comeeot of 
using spool files for each user desiring the use of the 
orinter was given much consideration. Tnis concept was in 
keeping with the overall] virtual design of MTS. It would 
fyeeow a user to outetut his text to a serinter spool file on 
mermini=disk and then permit him to continue work at his 
weGrminal. The information in the spool file would be 
printed as the printer became available. In theory, the 
concept of spooling printer information for each user seemed 
an ideal solution to erinter management and was compatible 
with the overall ocesign philosoony of MTS. However, the 
operation of the MIS sSwapoing function showeaq tnat the 
miniedisk access times were too high to orovice efficient 
direct memory access (DMA) for large spool files. TRe tact 
mac |6tChhe@hCUmemMory©6ClUbhuf fer = 6 6for the outout to a printer file 
would pe Sl2 bytese, the lenath of a minirdisk sector, meant 
that a considerable numoer of miniraisk accesses would oe 
required to write to a spool file and to output spool ie 
information to the Dir imc er. Several users making 
simultaneous reauests to use the printer would cause a 
bottleneck in the overall system operation. Por “this 
reason, it was decidec to agedicate the printer to the first 
user requesting the device and to advise all other users 
requesting the orinter that the device 1s 1n use. Since al] 


nour terminals are located in the same area of the 


Be 





microcomputer laboratcryr this decision seemed to be a 
reasonable alternative. 

Because of provisions made 1n the original design of 
MTS- implementation of erie printer routine was accomplished 
with few prodlems. A Sie pnyte vduffer area was available 
between locations 10U0H and 300H in the system area of 
memory. The printer routine was coded such that each time 
mess DUTfer 1S filled with data directed for the printer, 
the contents of the buffer 1s saved in a soecific print file 
Sm@etne Sycor mini=disk. This process 18 continued until the 
memtrol=2Z character 1s transmitted indicating an end of file 
(EOF). Lnew ECR MeGmnaracter triagers the initial data outout 
@emeene line printer. Once the intitial character has been 
output, the printer interruot causes the remainina data to 
be output to the printer on an interrupt basis. When the 
Guieecnaracter 1S encountered, the orinter control flag is 
turned off and the orinter buffer pointers are reset. 

The recovery feature of MTS was modified to accommodate 
the serial orinter should a system crash occur during the 
output of information to the printer. This feature 1S made 
possible since all of the erinter oarameters are saved in 
the recovery file with tne other system parameters needed to 
recover MIS after a system crash. If the user who has 
control of the printer at the time of the malfunction 18 not 
the task which caused the problem then his printer output 


will be reinitiated when MIS recovers. 
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VI. IMPLEMENTATION OF AN OPERATING SYSTEM 


A. OPERATING SYSTEM SELECTION 


Nhen the debuagine of MIS code was near completion the 
modification of an operating system for the Sycor system 
whicn would supoort program development in the NPS 
microcomputer laboratory could oe undertaken. Initially, a 
decision was made as to which operating system to implement 
with MIS, themecholrces ~being etther ISiS«IIl, which is the 
Intel Corp. system or CP/M, which was developed by Diaital 
Pesearch. FPefs. c¢ and 15 contain information pertaining to 
these systems. Since the basic “TS design would have to oe 
modified to accommodate ISIS*II and because the CP/M 
operating system with its support programs was already a) 
use in the NPS microccmputer laboratoryr a decision was made 


to incorporate CP/M on the Sycor 440 / MTS system. 


meee OPERATING SYSTEM IMPLEMENTATION 


meior to loading the CP/M operating system onto the 
Sycor 440 minisdisk certain modifications were necessary to 
account for the difference in system addresses between the 
Intellec 8 type microcomputer where CP/M was currently being 
used and the Sycor 440 system with resident MTS. FOllowlne 
Breese guigelines of fefs. 4 and Sr a customized basic [/0 


Proaram (CBIOS), a customized CP/M loader program (CLOAD), 


cu 





moa Orogrem to store CBIOS and CLOAD onto the miniedisk 
(PUISYS) were written with address and offset changes to 
match CP/M with the Sycor system. 

imesmavdT Our terence GOtweenm the two systems is that the 
version of CP/M which was written for tne Intellec 8 Mod 8&0 
microcomputer 18 Stored starting at memory location OQ with 
the command COmMEGo TED rogranm (CCP J) and the basic disk 
operating system (8DO0E) Starting at hexadecimal loGeat lon 
EUUH. Also, the user or transient program area (TPA) 
begins at hexacecimal location 100K. On the Sycor 440 CP/M 
has been modified such that code 1S stored at memory 
meeatnon 4O00H with CCP and BOOS stored starting at location 
o90UH in memory. The TPA 15 based at memory location 4100n. 
This change allows for tne loadina of MTS code between OH 
ema 4Q00H. Aim sexcepittonmto this descrintion of memory 
storage occurs if a user desires a larger memory image of 
32K bytes or 48K bytes of RAM, In these cases, the starting 
location of the CCP and BDOS modules would be at either 
AYQD0Q0H or FIDDO0H, decending on tne RAM image size desired. 
The CBIUS ang CLOAD programs for these ltarger CP/M systems 
must also be modified to accommodate these changes. A 
depiction of a memory image of CP/M for a loK system with 


MTS loaded is shown bpelow. 
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CP/M MEMORY MAP 

mee the CP/M ooperating system was stored on disk, the 
task of recompiling various utilty programs was started. 
Meeetext editor (ED) and status (STAT) programs were tne 
first programs to oe modified ana laaded on the minierdisk. 
Regeneration of an object module for these utility proarams 
with a load address of 4I00H vice I10U0H was the only code 
change made to Tame WUtiltty  “oroorams. After a New 
hexadecimal oojyect file was generated and stored in the 
PDP-11 file soacer, the Sycor 440 Interactive Teletype 
Simulator (TTS) program was utilized to transoort the object 
code via telephone line from the PDPe1l1l to the Sycor minie 
ms K e The MOT was then used to read the desired utility 
program from disk into memory. Once tne new program was 1n 
memory,s the save function of CP/M was utilized to write 
memory onto the virtual disk, creatina a file entry in the 


meoM file directory. 
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VII. CONCLUSIONS AND RECOMMENDATIONS 


ime primary goal of this thesis project was to imolement 
Pemeeromperating system on the Sycor 440 microcomputer system 
capable o f supporting program development in the NPS 
micfrocomouter laboratory. EM GFoute mt oO SEthiS = God |, the 
debugging and modification of existina system proarams which 
had been written during the design and development phase of 
the Microcomputer Timeshared System was necessary. 

The first steo toward this goal was the develooment of 
the MIS deougging tool. This software debugger comolemented 
the existing Sycor mocel 340 terminal nardware debugger and 
Pacilitated the debucging and expansion of the original MIS 
code. 

The design of MTS provided areas for enhancements to the 
basic system. Procedures were written to protect, restrict, 
and remove protection from user file space. It was felt 
that these routines were essential to orovide file security 
on a multiuser system. The Centroni.«x serial orinter was 
integrated Vntoweriioe and 1S CaemrOmly Ofinten mm the weirs 
meerocomputer laboratcry which directly interfaces with a 
microcomputer system. This additional resource represents a 
valuable tool for microcomputer program development. 

Following tne guidelines of kefs. 4 and be) tne 
modification Sie es was accomelishea and the revised 


s 


operating system was loaded onto the Sycor 440 system. 
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During the imolementation of CP/M on the Sycor 440, it 
was found that certain enhancements to the Sycor hardware 
would greatly improve the overall system oerformance. These 
Samenmcements include a fast multisector mini=disk controller 
which 1S oresently uncer development at Sycor Inc. Tavs 
enhancement should be given high priority since the response 
time of the system with three or four users logged into MIS 
/ CP/M is noticably slower than most timeshared systems. 
Also, to assist in future integration of the Sycor 440 with 
the oresent microcomputer facilities, the aadition of the 
sycor floppy disk drive woulo be auite beneficial. 

A secondary goal of the thesis project was to continue 
eee evaluation of ML-80 as a tlarae system develooment 
language. During the modification of MTS coge, it was found 
that ML=-80 orovideo manv advantages over assemoly langquage 
fom microcomputer programming. The algebraic Motat 1on 
provideaq oy the language proved to be especially convenient 
for working at the reqister level. Also the readabilitv of 
source code was extremely valuabdDle durina tne initial ohase 
of studying and uncerstanding MTS. The drawbacks of ML=-d0 
mested in chapter VI of Ref. 1! were found to be valid. 

Besides the recommenaations for improved hardware 
mentioned avove, there are several areas for future MIS 
development. These areas include the integration of the 
cassette tape drive and the RS=2e3e asynchronous 
communications interface into the existing eS 


Configuration. 
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APPENDIX A Mio USER 3 MANUAL 


The purpose of this document 1S to orovide the uSer with 
the information necessary to utilize the Microcomputer 
Timeshared System (MTS). Tnis manual was originally prepared 
poe. )6=6CUU «6CBrownm and D. R. Bullock in March i977 and revised 
Dy S. teecarre and Bo L. Knouse in Sept@mber [1977. 

lee contents of this manual include information on 
setting up the Svccr 44U System for use with MTS, loading 
Bigaeynitializing MTS, and interfacing with the MTS and CP/M 
operating systems. sections A and & orovidce a qeneral 
description of “TS desian concepts and tne Sycor 440 System. 
mection L provides the detailed information necessary to 


interface the Sycor 44V System and MIS. Sec ton) > —oConmtolt ns 


information on tne terminal design, key Pome CLOnSs senG 
system commands which enaole the terminal user Eo 
communicate witn MIS. Section Fnoescrioes the MIs status 


line display and defines tne various messages disclaved ty 


HS « section F details the services orovigeao for 3a user 
eproqram oy MIS, and the limitations on aeoeuser orogramn 
running In the MTS environment. Decmremeo eeovIces Fine 


information required to convert orograms written for tne 
Beiste version of CP/M to the MIS version of CP/. The 
comolete MTS desion specification and implementation 


imformation 1S contained in Ref. 1 and Ref. c. 
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Meee MIS CONCEPTS AND CEFINITIONS 


fine acquisition of the Sycor 440 Clustered Terminal 
Processing System provided an opportunity for development of 
a shared environment for microcomputer research and 
development. In response, the “Microcomouter Jimeshared 
System (MTS) was designed and built to orovidge the basic 
machine interface ana system management functions necessary 
for a Shared environment. 

The purpose of “IS is to provide an interface between 
the bare Sycor 440 machine and up to four user tasks 
executing concurrently. Tne “TS environments, as viewed ov 
the user, provides) al| the microorocessor facilities 
required for microcomouter research and development. From a 
System paint of viewr MIS manaaes the available hardware to 
ensure that the hardware resources are equitadly and 
efficiently allocated to comoeting user orograms. "IS is 
designed to interface with aversion of CP/M mocified to run 
oem the Sycor 440, Tnis enables all systems and proaorams 
designed to run with tne CP/M operating system to run on the 
Sycor 440 with minor rodifications (such as a change in load 
Searess). This includes all the development facilities 
availaole with CP/M, such as the text editor, dynamic 
debugger, assembler, etc. A list of references for CF/4 and 
its facilities ig containea in section G Ref. 3 through Ret. 


a. 
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pee SYCOR 440 HARDWARE DESCRIPTION 


The Sycor 440 Clustered Terminal Processing System. at 
NPS ts composed of a control unit containing a cassette tape 
orive,r four disolay terminals, a Centronix matrix printer, 
and a Sycor Model $40 Communications Terminal. 

The control unit 1s the heart of the 440 system. 
Contained within a waiste*high cabinet are random and control 
logic including two 8080 chips, oO4K of random access memory 
(RAM), interfaces for all pertoneral devices, aie five 
megavoyte fixed disk, as well as the aforementioned cassette 
tape drive. 

memaceag together cn the front of the contro) unit are an 
ON/OFF/RESET keylock and system status oanel. Turnina the 
Mmemeock to the RESEF position activates a agiaanostic 
bootstrap orogram locatec in read-only memory (ROM). This 
bootstrap proaram performs several diaaqnostic tests on tne 
CPU, memoryr, ard system load aevice (cassette or mini-disk) 
and then initiates system  loadina. The status) of the 
Giaaqnostic tests is indicated doy a series of red liahts on 
the system status panel. These lights are turned off mn 
sequence as each phase of the test is successfully 
completed. When all red liahts have been turned offs three 
Qreen liaqhts on the panel will remain lit ta indicate that 
mipecower suoolies are functioning normally. There 1s also 
one additional rea light at the bottom of the system status 
panel which only comes on if the temperature inside the 


control unit cabinet exceeds normal ooerating Jimits. 
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me of the two 9080 chios locateaq in the 440 control 
unit serves as the system CPU. The 8080 instruction set 
consists of the 7/78 data transfer, arithmetic, logical, 
branch, stack, I/O, and machine control Mas.einucG t kon's 
descrived in Ref. 9. ithe Sycor 44U provides a comprehensive 
oem Of Prioritized interruots including a timer, peripheral 
device, and auxiliary storaae device interrupts. Passing 
eontero | information ang data between the 8080 CPU and 
peripheral devices 1S accomplished by utilizing the  [/0 
merts (called latches yn Sycor literature) providea on the 
meo0 cnip. 

mmeoestecona S080 chio found in the control unit acts as a 
@emtroller for the mini-disk. Tne miniwdisk is a sinale 
ptatter, movable head, fixed disk oblockeg into Sle cyte 
sectors. Tnere are 800 tracks on the disk with 15 sectors 
per track. Data transfer between RAM ana the minisdisk 15 
via direct memory access (DMA). The miniedisk controller 
communicates with the nost 8080 CPU through a 13 byte disk 
@omero! Olock (DCB) located at a fixed location in memory. 

Peripherals supoorted by the Sycor 440 system include 
binary syncnronous and asynchronous Communication devices, 
uD to eight disolay terminals, serial and line orinters, and 
card readers. Titeweieome COMfiqQuration has four display 
terminals consisting cf a typewriterslike xeyboardaq and CkT 
disolay device. Each terminal displays a DMA ;maae of a 5/76 
byte terminal ouffer located in RAM, Keyooard input 1s 
accomplished by software translation of a keyoOoara matrix 


coce into tne corresponding ASCII character code. For 
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hardcopy output the NPS 440 includes a Centronix serial 
matrix printer. 

Several different auxiliary Storage devices may be 
meecened to the Sycor 440 in addition to the mini-disk. 
These include magnetic taoe drives, cassette tane drives, 
ama floppy disk drives. The NPS configuration includes a 
cassette tape drive located in the control unit. This drive 
provides compatibility between the Sycor 440 system and tne 
Modagel 340 deougaer. 

The Model 340 Communications Terminal 1S8 vdareome | ete 
system in its Own right which 1s marketed by Sycor for 
remote jod entry (RJE) apolications [10]. when utilized as a 
hardware debugger, the 340 is augmented with 4K of RAM and a 
backolane couoltna to a soecial wireswranned interface board 
Peeeeetne 440 contro] urit. The 340 debuager 18 provided with 
a software vnackage which includes provisions for loading and 
dumping hex format erogran files between cassette tape and 
440 RAM, examinatior and modif+cation Ont maividual 
locations in 440 memoryy inserting oreakopoints and traps in 
programs executing on the 440, and singlesstenppina through a 
program executing one instruction at atime [ie]. 

There are several hardware characteristics of the Sycor 
G40 system which strongly influenced tne imolementation of 
MTS. The most important of these are: 

my S080 CPU architecture 
(2) terminal design 
fay eminiw~disk interface 


(4) sinaqle=state CPL 


Lys 





[s) lack of memory crotection 
me impact which each characteristic had on the design and 


implementation of MTS 1s covered in Ref. l. 
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Meee SYCOR S40/M7IS INTERFACE 


The Microcomputer Timeshared System was desiqned and 
built for use on the Sycor 440 Clustered Terminal Processing 
System. For this reason MTS depends heavily on specific 
features of the Sycor implementation of an 8080 based 
microprocessor. This dependence includes reliance on Sycor 
supplied software as well as the 440 hardware, but becomes 
most apparent to the user 1n the two areas) of loading the 


system and maintainince system files. 


Ll. Loading the System 

The MTS object module resides on the miniedisk in a 
relocatable format accentable to the Sycor Svstem Loader. 
The System Loader is called in to memory by setting the 
internal System definition switch to 35 and turning the 
Memeebr7RESET keylock on the control unit to the RESET 
position. After MTS itis loadeq execution begins with the 
initial proaram toad (IPL) module. The query RECOVERY? 
(Y/N) is displayed at terminal 0. The operator should enter 
Y if recovery is desired, otherwise Nw. In the event that 
the IPL operation is haltea due to a file access error (file 
non-existent or cannot be read) the message ied ABORTED 
followed by a system file name wil! appear at terminal 0. 
After correcting the croctlem the operator may reload in the 
normal manner. When the IPL ABORTED message is accompanied 
by the HARDWARE ERROR terminal alert it indicates that an 
abnormal comoletion code was returneao by the mini-cisk 


controller after a read operation. Further investigation 
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using the Sycor utility proorams FIXNAR or ..ZAP may be 
required to identify the problem [ltl]. 
To summarize, loading MTS involves the following 
steps; 
(1) set internal system definition switch to 3 
Mey turm ON/OFF/RESET keylock to RESET 
(3) wait two minutes while miniedisk reacnes operating 
soceed and all red liahts on control unit status oanel 
germ out 
(4) respond to RECOVERY? auery with N to initialize a mew 
System or Y to recover from the last operating 


session. 


Loading the Sycor ooerating system involves the 
following steps: 
mee set internal definition switch to ! 
mepeturm ON/OFF/RESET keylock to RESET 
(5) wait two minutes while minisdisk reaches operating 
speed and all feamiyrants OM ttheseomtro! unit status 
panel go out 
(4) the Sycor ovoerating system will resoonaq witn tne 


promot READY. 


ee Recovery File = .MTISRCVP 
MIS supports limited recovery after a user task 
causes a system crasn. The recovery feature is imolemented 
by copying the: contents of the system state block (S58) 
etter each swan to a mini-disk file known as the recovery 


file. Since the SSB defines the state of tne system at any 
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instant, recovery may be accomplished by reloading the SSB 
from the recovery file, deleting the task causing the crash, 
and proceeding with normal execution. These actions are 
performed by the MTS IPL module when the answer to the 
RECOVERY? query is Y. 

ihenever MTS is runningr a double-sector file named 
eMTSRCVR must be listed in the miniedisk directory. In tne 
event this file 1s deleted, it may be recreated unaer the 
Sycor operating system by using the commana 

CREATE .MTSRCVR Nee 

The contents of the recovery file at the comoletion of = an 
operating session are only meaningful) if recoverv will ve 
requested when “IS 1s next loaded. Therefore, under norma] 
circumstances this file is mot needed when MTS is not 


PUMINING. 


Dem owae Files =~ .~MTSSWPx 

One of the most fundamenta| requirements on any 
Bimesharing system 1S maintaining independence of user tasks 
executing concurrently. MIS satisfies tnis reauirement oy 
maintaining onysical as well as logical sercaration of al) 
user tasks in the system. Associated with each of the four 
terminal tasks 1$ a miniedisk file used to store a core- 
image of the task when it 1s waiting for tne CPU or hlocked 
pending some [/N operation. At any given instant a task may 
reside on the agisk in its swao file or in memory,sy but at no 
time can two or more tasks reside in memory simultaneously. 


A task's Swao imaae consists of 17 bytes reserved dv 
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MTS for environment and virtual device control data followed 
by up to 48,896 bytes of user task memory image. Thus, the 
maximum allowable swap image 1S approximately 48K bytes. 
There 1S no minimum value for the size of a Swap image. The 
Sw3aO image size ory ecuivalently, the amount of memory space 
available to the user is variable from 0 to 4&K. In fact, 
the user 18 encouragec to use the smallest swap image which 
satisfies his requirements as smaller Swap imaaqes tena to 
imerove system responsiveness. 

A 48K swao image wil] fill 96 Sectors on the minic 
disk. Therefore eacn of the four swao files shoula normally 
be 96 sectors lona. In the event that miniedisk space 1s 


limited, or that user tasks do not requre a 48K swap Image, 


mroewwii!l automatically adjust to any file size greater than 
16K oe sectors). Sixteen kilobytes was selectea as the 
minimum and default system $i1ze since vet provides FS) 


reasonable amount of memory for running the CP/M operating 
system. The IPL module performs a size test on each Sswao 
file to ensure that it is at least 32 sectors lonq. MIS 
Sommot be loaded if any swaco file is smaller than $e 
Sectors. 

If it becomes necesSary to change the size of any or 
ali swap files, the file(s) must first be ageletedg from the 
miniedisk directory. This is accomolished under the Sycor 
ooerating svstem using tne command 

DEEETE <4 1 lename> 
where <filename> may he .MTSSwPO, eo oNE Ty eMTSSWPe, or 


-MISSwPS. The Number in each case indicates the terminal 
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with which the file 1s associated. After the file has been 
deleted, it may be recreated by using the command 
CREATE <filename> N=96 

for each file which nas deen deleted. If swao files smaller 
than 48K are desires, the value of N in the CREAIE command 
string should be two times the requireq memory space in 
kilobytes, but no less than 3e. 

The contents of the swan files upon completion of an 
MTS operating session are only meaningful if recovery wil] 
be requestea when ‘TS iS next loaded. Under normal 
circumstances these four files are not required when MTS is 


Meme runNnINg . 


Wee cOontiauration File = .MTSCNFG- 

As explained in section A.e.cr MTS identifies 
mertual floppy disks by a logical disk number ranging from 0 
to 31. Since each virtual floppy disk actually resides in a 
minizdisk file created under the Sycor operating system, 
there must be some mechanism for manoping a logical disk 
member into a filename contained in the mini-disk directory. 
mos fUMectIOn 1S performed by the confiauration file 
eMTISCNFG. 

iwemcenticuratiom file is made up of 32 entries of 
thirteen bytes each contained on a single minirdisk sector. 


Each entry has the format 
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: fle emi cA mM, & fkeeecaye | P A } 

ee TE ea a a 
where FILENAME is the 0 to 8 byte name of the virtual floopy 
Omak t1!e aS it appears in the miniwdisk directorys KEY is a 
Oeeeo 4 byte protection key; PA is the oprotection attribute 
Seeeene Virtual disk, i.e. ‘'P* for read/write protection, 'R' 
morewrite protection only (restricted access), and blank for 
men protection. The loaqical disk number for each entry is 
simoly the position of that entry within the file. Eor 
example, the first entry is assigned logical disk mumver QO, 
the jast entry 31, ana the entry which is preceded vy 17 
other entries vecomes number 1/7. 

The configuration file is read boy MIS during tne 
Meme ralization process performed by the IPL moaule. Tne 
filename is extracted from each entry and input to a routine 
mare my Searches the miniwarsk directory. When a match occurs 
the miniwrdisk address for the file is read from the 
Girectory and enteread ina virtual floopy disk map table. 
memo match occurs for a aiven configuration file entry, the 
corresponding logical disk number 1S marked not availaole. 
Any suosequent attempt to access that virtual disk will 
mesulit in the terminal alert DISK NOT AVAIL (E.53). 

CNncemene Imtornationm Comteined in the configuration 
file is of a permanent nature and can only be recreated with 
great difficulty, the file .~.MTSCNFG should never be deleted 
trom the minteaisk file dgirectory. In tne event the file is 


deleted erroneousSlyr anew file may be created under the 
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Sycor operating system usina the CREATE ana BATCH commanas 
and a backup cassette labeled ".MTSCNFG”". The commands are 
entered as 

CREATE .MTSCNFG Ne=l 

RUN. BATCH 1=/CSST 3=.MTSCNFG 
with .eMISCNFG mounted in the cassette drive. These commands 
will build a new file directory entry for .MISCNFG ana 
Bememlish a basic confiaquration file with 32 entries of the 
form .U1SKx, where x ranges from 0 to 31. 

The configuration file may be modified by two 
methods. 

Firsts, immediately after the ovasic configuration 
file has been created and loaded it may be trodifiea when 
running under the Syccr operating system. Sycor orovides a 
data entry free form rode which allows the terminal operator 
to examine and modify the contents of the file ie 2) 
Extreme care must he exercised when uodating .MISCNFG to 
alian each entry properly in the file. MTS assumes the file 
will be in the proper format when reads, and makes no attemct 
to validate individual entries. Note that this method may 
only be used after the configuration file has been loaded 
mporerior to running *1S. Once MTS has been executed the 
next method must be used. 

inemcom!laugatiom file may be modified utilizing tne 
MTS commands Protect, Restricts, and Unprotect. These 
commands form the most common methoa for modification of 
virtual GQ vsmeorotection ettributes. Protect, Restricts and 


Unprotect are detailec in section D.5. 
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we rrinter File = .MISPRT 

MTS supports the use of the Centronix serial mat fax 
orainter. The printer feature is implemented by bufferina 
characters in memory until the Sle byte orinter buffer is 
mel |. Next the buffer is written to the miniwdisk file 
eMTSPRI and the buffering ooeration is restarted. When the 
eng of file character 1S received, any data in the buffer is 
eompired to .MISPRI. Finally, the file igs read into memory 
Beeoutout to the printer under interrupt control. 

In the event that .MISPRT is deleted, 1t may obe 
recreated under the Sycor operating system oy usina the 
command 

CREATE .MTSPRT N=<file size> 
where <file size> is the length of the file in Sle byte 
emeyi-disk sectors. Because all information is written to 
the printer file before it 1S orinted, tne user must insure 
that the file size 1s large enough to hanale the worst case 
fcuation. If the user discovers the printer file size must 
be increased, the Sycor ovoerating system commands 

DERETE .MISPRT 

CREATE .MTSPRT N=<file size> 


may be used. 


Semevyccual Floopy Disk Files 
Each virtual flopoy disk. resides on ae block of 
neerveally contiguous mini-disk sectors. This block must be 
allocated using the facilities oroviged by the Sycor 


operating system, socecifically the command 
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CREATE <filename> N=<file size> 

where <filename> 1s al to 8 character name to be entered in 
the minisdisk directory and configuration file, and <file 
size> is the length cf the file in Sle byte minirdaisk 
Sectors. For the basic configuration file described above 
the <filename> is of the form .diskx where x ranges from 0 
mom) 51. BormenerstamGarc cs20n byte flopoy disk <file size> 
Semmes Dic, i.e. (256 * 1024)/5ie=51e. 

Nhere a physical flopoy disk has a fixed capacity of 
2CS6K bytes, an MIS virtual disk may have any convenient size 
up to 2e5o6K bytes. MIS assumes that the agisk image 1S made 
Memeeot contiguous 128 pyte floopy disk sectors starting with 
track 0 sector li», oroceeding through the eo sectors of track 
tecor track ! sector 1, and so on until track /7o sector 20 or 
foemi the virtual disk file 1s full. If the virtual disk 
file size is less than 512 miniedisk sectors, less tnan 77 
floppy disk tracks will ove addressable. 

It 1s Important to note that MTS only recognizes 
virtual floppy disk files which are enteregq i1n- the 
Gomtiguration file. The loaical disk number associated with 
agiven virtual floppy disk file is determined by chat files 
position in -MTISCNFG. When the file is initially entered in 
Mme configuration file a orotection key and protection 


attribute may also be entered. 
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Meet Oo7USER TERMINAL INTERFACE 


1. Terminal Interface Design 
The general format of each terminal display" 1S as 


follows: 


0 D ope 
ee to) —)——™C™~—«Ct 
12808” mo) Ct 
19200 a Rs ass: 
s+ 0Ctt*” 7 ao oe. 3191 
i = ae 583! 
i EY 
a8 is ROSA 
The numbers are decimal and specify character oositions 


meptchin the status line and display buffer. 


Seu Totus Line 

The terminal status line is used on ec aie 

display three types of status information: 

(1) The current virtual drive and floppy disk assianments 
femetnat terminal. 

(2) The size of the user's Swap imane, i.e. the amount of 

memory soace currently available. 
(5) Error message alerts croduced by MIS system commands, 


or resulting from user proaram calls on the DISPLAY 
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MSG service routine (see F.ec.). 
The status line display format and contents are 


Giscussed in detail in section €E. 


Doaeeisetay Bufter 
The disolay buffer can hold uo to a maximum of 
eve Characters. The disolay buffer also acts aS an input 
buffer, holding the ineut data until the user's program 
requests it. Due to the unavoidable delays in user program 
response caused by Swapping and aagravated by the relatively 
low data transfer rate of tne minisdisk, the MIS terminal 


interface provides character echoing and simple line egiting 


features. This ensures reasonadle response times to key 
metivation by the user. Thus, inout Gata can not be 
considered available ro)6CO6Uhtthe:dh€uuser'sS proaram until an inout 
line termination character has heen received by MIS. ike) 


estaolish an input buffer for a program, the user enters tne 
Beaeae anc terminates the line by hitting the NEWEINE or ENTER 
kKeyS on the keybdoard. This establishes tnat line as an 
input ouffer available for orocessing ody the user's program. 
When NEWLINE is entered MTS issues a2 carriage return and 
line feed to the terminal screen. ENTER causes termination 
Seeeeetme current line but MIS does not output a carriage 
return and Jine feed to the terminal screen. ENTER 1S most 
effective wnen CP/M commands are entered because more 
information can be oresented on the MTS terminal. Note that 
the key combinations ‘'I/0 CTL Memory omie ) CR Con. the 


number pad) will also result in the termination of an input 


47 





line. Either of these keys, as well as NEwLINte and ENTER, 
may be used for line termination. 

Once an inodut buffer has been estabdlisnea the 
user may continue to input data on the next line. She user 
moayemuise any of the line editing or other cursor control 
features on this new line of input cata. However, this new 
line may not be terminated unti] the user's oroqram has 


processed the oprevious inout vouffer (see terminal alerts 


below). 

Ecqeheciomacter outpuUtetrom the user's program is 
Gserayed at the current cursor position. Psen-outout 
meets 19 all input ouffer ooitnters beina reset to the 


character position at the end of the output cata. Tnuse new 
iaew)!! start at this ooint. Tmos amoelrves that if the user 
had been in the middle of entering cata wnen the output 


occurred, 1t must be reentered. 


om Terminal Alerts 

The MTS terminal interface orovides tne user 
with either ae visual or audio response to each key 
georession. Normal visual response 1S Drovided Cy disolay 
of the entered character and/or movement of the display 
Gursor. iceecise oymesiciumaar “1s a blinking underscore 
Semearacter which marks the current oositton on the screen. 
Data is always enterec and displayed at the current cursor 
position. 

The audio responses consist of eitner a veep or 


fen ick at the terminal. A terminal beeo alert wrt] be 
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generated for any of the following conditions: 

(1) An input buffer is waiting to be processed -by the 
user's program and the terminal user attempts to 
terminate a new input line. 

(2) An attempt 1S made to move the cursor back past the 
Start of the current line. For example, attempting to 
delete the orevious line or character after the line 
has peen entereo by a termination key will result in a 
peep. 

The terminal click alert is associated with the 
disolay scrolling feature. Since the display buffer also 
Bets 38S an inout buffer, scrollina the display when the Sie 
Byte dispolay buffer is full could destroy input data which 
has not yet been orocessed. For examole, the user could ce 
emere ring a Sie character string. com termiaat tom Of 7that 
maout line, MIS will tock out Seno 1 OG souMmt 1) the user's 
program has orocessec the first 64 characters. This ensures 
that the inout gata 1S not destroyed by the scrolling 
operation. EniSuSGrolling loeroaut- 1s imdicated to the user 


eyeo terminal click alert. 


2. Terminal Key Functions 
The terminal keys fall into five basic functional 
groups: keys for entry of normal character stringss keys 
mem affect the interoretation of the inout key character, 
input line termination keys? line editing ana cursor contro] 
keySs and number oad keys. These keys and their functions 


are described ial the following Subsections. Within the 
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function descriptions, "current position" refers to the 
current cursor position on the screen. Any reference to the 
agisolay of a character in the current position, also imolies 


that the current position is incremented by one. 


ae Character String Keys 


KE Y7SGLITCH FUNCTION 
0-9 Displays the Inout Numeric 
character at the current 


BOs rTtion om the sereen. 


special Disolays the inout special 
Characters character at the current cursor 


position on the screen. 


A-2 Disolays the input alphabetic 
characters at the current 
position on the screen. 
Alohabetic cnaracters are 


disolayed in upmer or lower case 
depending on the kev mode (see 
Splpteand fos © under Entry “Mode 


Keys). 


Tan7okK10 Diselays a (Chorizonal) tab sym- 
bo} at the current cosition on 


the screen. 
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be Entry Mode Keys 


KEY/SWITCH 


FUNCTION 


SeEeeCT CES) 


P76. CONTROL 


Cl pee) 


Syniliie |p 


ao -C 


SHIFT RS 


CRESTART) 


FUNCTION 
Defines the interoretation of 
keys for sonecial) functions as 


defined in this section. 


Vetimesuthesimteroretation: of 

Keys for spnecial functions as 
defined in this section. Also 
USEG Tim, “CoOnmyuUnCctIiEN with the 
alphabetic keys to generate 


aporooriate ASCII control codes. 


Sets the keyboard to, “umber” “or 


low#®r case. 


Sets or clears the alphabetic 
key entry mode to upper or lower 
case. Functions as a shift key 


Lock. 


Gaucesuanrol 7 -Insteuction “to be 
executed which transfers control] 
to memory location 40358h. This 
key is used with the CP/M DOT 


proaqram. 





G. Line Termination Keys 


KEY/SWITCH 


New LINE? ENTER; 
I/O CTL Ms 


Sint CR, 


BRR ne oe | 


(MTS CMD) 


dan) ‘Line Editine 


KEY/SWITCH 


NEXT FMAT; 
rue CTL. U 


(Line Delete) 


BAC weer. CE 


(Char Delete) 


pomereore 1/0CTL. Ss 


FUNCTION 


Terminates the current line anda 
establishes the just completed 

input line aS an input buffer 
available for processing by the 
user's orogram. The cursor 15 
disolayed at the left most 
position of the next line except 
LOG ENTER which leaves tne 


Gupcormeat the Currert ooSition. 


Specifies that the inout Jine 
which it terminates 1S to ve 
processed by MIS as a system 


command. 


Sana veursormeontrco! Keys 


FUNCTION 


Deietes ail characters from the 
current position back to the 


Start of the current line. 


Deletes the previously entered 


character. 


CWeoarsetne Gisolayv buffer (not 
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(Clear Screen) the status line) and leaves’ the 
current position. at the upper 
left BospPrtion of the display 


bur fer. 


<=-=- (Cursor Left) Moves the current position one 
EO the left. Does not delete 
orevious entry, but allows 


reentry. 


m~e=>(Cursor Right) Moves the current position one 
to the rignt. Does not delete 
orevio0us entry, But allows 


reentry. 


e. Number Pad Keys 

inemmumoer Cad keys comsist of 10 numeric digits 
and 8 ASCII contro! characters locatea on tne riaht side of 
the keyboard. The diaits function in the same manner as the 
@tnmer numeric digits on the keyboara. Dhe ease! —CcOomt ro! 
characters are disolayed when the SHIFT key is depressed in 
memunction with the aopropriate key. The only control 
characters which affect the aisolay are SHIFT CR and SHIFT 


RS (see Line Termination Keys). 


3. MIS System Commands 
System commancs are a set of commands which orovide 
the user with a means of communicatina witn MTS from the 
terminal. These commands allow the user to login to MTS; 


quit MiSs; attach virtual floopy Gisks-, orotects restricts 
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mmaeunorotect virtual floppy disks; and specify the virtual 


memory size to be usec. 


are General Characteristics 
A MTS command sequence may be entered anvtime 
after the imitiaiitzation "or reinttialization of MIS. The 


user enters the desired command sequence, followed by the 


ERROR RESET key. This sianals the operating system that 
Beere is an MIS command to be processed. Anv errors 
detected mn the commana sequence will result in an error 


alert messaqe displayed in the MTS message fiela on the 
status line. Secticnm §& deserives tre o MTS Status line 


disolay and provides a summary of the error messaaes. 


b. Syntax Rules 
The following rules should be used to interpret 
the svntax for each system command given in section D0.3.e. 

(1) The command may be entered in upper or lower case. 
MTS converts the commands toeeuUgperoueGase for 
processing. 

(2) Each entry in the command sequence nust te separated 
by one or more spaces. 

(3) The entire command name may ve used to specify the 
command. However only the first letter of the command 
1$ required, as indicated by the underscore in tne 
Syntax. Mio —Veali@ates Omly the first letter of the 
command name. 

(4) Parameters are shown in lower case and enclosed by 


inequality signs (< >). Each parameter name 1S a 
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variable which must be replaced by the appropriate 
character string or decimal number entered by the 
USE. 

Pee crameters may be required or ootional, depending on 
the command. Cptional parameters are soecified by 
enclosing the parameter 1n brackets ({ Jj)). If @4 
parameter 1s designated as optional, it may be omitted 
from the commanc seaquence (see section D.3.d). 

(6) The designation [<disk nmr> [/<key>]] indicates that 
the entire oarameter sequence 1S optional, and that 
<disk nr> may acwoear without /<key>. The converse, 
however, 1S not true. 

(/) If oarameters are entered 1m a command sequence they 
musts oe Im the order specified in the syntax. For 
example, <disk nmr> may not be entered before <drive 
ur >. 

(8) The notation (error reset) at the end of each command 
strina is a reminder to the user that each MIS command 


sequence must be terminated oy the ERRGR RESET key. 


ce Parameter Definitions 
The system commands have four types oO f 
Parameters: 
mimesarive itr> - must he one of tne alohabetic characters 
Ae through H. It specifies one of the eraht virtual 
disk drives available to a terminal user. 
(2) <aisk nr> = must be a decimal number in the range 


O-31. 1 soecifies one of up to 3e virtual floppy 
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Gisk files on the Sycor minicdisk. 

meee y7s<key> = a String of not more than four characters, 
always precedec by the special character ‘/' which 
designates the string as a key parameter. Al) valid 
ASCII characters are acceptable including odlank, slash 
(7), and other special characters. 

(4) <memory size> = must be a decimal value in the range 0 
to 48, which specifies the user's Swap image size in 
kilooytes. The agefault value for a user Swap image 1s 


L6oK. 


gd. Default Parameter Values 

Certain system commands allow the user to omit 
the <drive IJItr> anc/or <disk nmar> parameters. In these 
cases, “TS determines the aoprooriate drive letter and aisk 
number by scanning its allocation tables for the first 
available virtual orive or virtual disk, aS appropriate. L¢ 
one 1s found, it is allocated to the requesting user. 
Otherwise the approoriate error message is displayed. 

The <key> parameter 1s aptional only if the disk 
requested has no protection attributes specified. Thus there 
is no default <key> value. As oreviously mentioned, the 


default <memory size> parameter is !60K. 
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e. Commana Descriptions 
The following pages describe in detail each of 
the system commands: 

(1) ATTACH 

(2) LOGIN 

mn PROTECT 

(4) QUIT 

os €6CRESTRICT 

Woy) SIZE 


moe UNPROTECT 





SYSTEM COMMAND ATTACH 


mime tions 


To attach Se GUase toc my G1Sk Co a virtue! disk drive 
for use by a user at a specific terminal. 


Syntax: 


ATTACH [<drive ltr>] [<disk mr> [/<key>]]}] (Cerror reset) 


Descriptions: 


This system command simulates the ohysical operation of 
ieeaing virtual disk <disk nr> into virtual arive <drive 
er. All parameters are ootional, section 4540 
describes tne default values when optional parameters 
are omitted. 


Error Messages; 


DRIVE NOT AVAIL |= Orive letter has not been 
soecified ano there 1S no arive 
presently available for assignment. 

DISK NR ERROR - Disk number entered 15 areater 
than 31. 

rok IN USE ~ Disk number soecified is oresently 
allocated with read/write access to 
another user. 

DRIVE LTR ERROR = Drive letter entered 1s not one of the 
letters A through H. 

DISK NOT AVAIL © Either disk number has not been 
specified ang there 158 no aisk 
oresentliy available for assignments or 
the soecified aisk 1s not 
available for assignment. 

INVALID CMD - Syntax error in commana sequence. 

mey ERROR - The soecifieo disk requires 2 Key 
and either a key has not been entered 
or the entered key did not match. 


examoles: 


ATTACH A 3 /USRI1 


A fc 
attach 5 /vdéa4l 
3 l 
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SYSTEM COMMAND LOGIN 


mmetions 


menks the terminal user to MIS and provides the initial 
load of the user's program or operating system (default 
system is CP/M), 


Syntax: 


LOGIN [{<disk nr> [/<key>]] (Cerror reset) 


Description: 


This system command notifies MTS that the requesting 
terminal 1S MNOw active, and simulates the physical 
cold=start bootstrap operation of the user's system. 
The bpootstrap load always takes place from virtual drive 
A. The virtual disk Cand associated key, if any) 
attached to tnis drive may ve specified as 2 parameter. 
ines cqefault is disk nr 0, which 18 a read only disk and 
always contains the CP/M“ operating system. 


Error Messages: 


DISK NR ERROR - Disk numoer entered is Greater 
Giao. 512 

Mon LN USE - Disk number svoecified is opresently 
allocated with read/write access to 
another user. 

DISK NOT AVAIL - The specified disk is not available 
for assignment. 

HARDWARE ERROR - Abnormal comoletion status was 
returned by the minisdisk controller 
following a write ooeration. 

INVALID CMD - Syntax error in command sequence. 

KEY ERROR - The specified aisk requires a key 
and either a key has not heen entered 
of the entered key did not. match. 


Examples: 


LOGIN 3 /D1 
Le: 

Woagim co /d0c> 
] 





SYSTEM COMMAND PROTECT 
mame tions 
Adds the read/write protection attribute to the 
soecified virtual disk. 
Syntax: 
PROTECT <disk nr> /<key> (error reset) 
Description: 
This system commangd provides the user with the means for 
Serine assignment of a protection <key> to <d1isk nr>. 
Error Messages: 


DISK NR ERROR 


Disk number enterec 185 aqreater 
Ghai lee 


HARDWARE ERROR Aonormal comoletion status was 
returned by the miniedisk controller 


following a read or write operation. 


INVALIO CMD 


Syntax error in commana sequence. 


mey ERROR - The soecified disk is already 
orotected. To change protection keys 
use UNPROTECT with current key and 
then PROTECT with new key. 


Examoles: 
BeG@ltECy 1 /VFDS 


orotect 10 /keyl 
on ec /uR20 
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SYSTEM COMMAND 


munmctions 


QUIT 


Terminates the terminal user's link to MTS, 


Syntax: 


QUIT Cerror reset) 


Descriptions: 


This system command notifies MIS that tne requesting 


terminal 1s no 


Error Messaqes: 


HARDWARE ERROR 


INVALIO CMD 


Examoles: 


QUIT 
Quit 
Q 
q 


longer active. 


Abnormal comoletion status was 
returned by the mini-disk controller 
following a write operation. This may 
Imaileace that the last virtual diys«x 
written to was not closed prooerly and 
data has been lost. 


Svntax error 1n Command sequence. 
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SYSTEM COMMAND REO TREC 


mime tions 


Adds the read restriction attridute to the specified 
virtual disk. 


Syntax: 


RESTRICT <disk nr> /<kev> (error reset) 


Description: 


This system commana provides the user with the means for 
on=line assignment of a "read only” restriction to <aisk 
nr>,. This allows the user to snoecify a virtual floor y 
disk as available to other users for read only access. 
The virtual floopy disk must have pneen protected orior 
to issuing the restrict command. The <key> is the same 
as the <key> usec in the orotect command. 


Error Messages: 


DISK NR ERROR 


Disk mumoder entered 158 areated 
tharos. 


Pon IN USE - Disk number snecified 1s oresently 
allocated with read/write access to 


another user. 


PyvALTO CMD 


Syntax error in commana sequence. 


KEY ERROR - The scecified disk reauires a key 
and either a key has not heen entereda 
or the entered key did not match. 


eeamoles: 


meStTRICT 53 /ID i 
fae s/s 61d 
meectr1et:. 15 suse 5 
ao. / | 
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SYSTEM COMMAND SZ 
Function: 
Specifies the memory size to pe allocated to the 
terminal user. 
Syntax: 
SIZE <memory size> (error reset) 
Weseriptions 
This system command sets the size of the user's swan 
image. Fhe range of values 18 O0°48K. Tne defauit value 
erter login 13s 10K, 


Error Messages: 


INVALID CMD 


Sxamoles: 


Sze 24 
SE 


size 48 


Syntax error in command sequence or 
the size parameter entered does 

not fall in the ranae of 0-46; 

or the Sycor 440 swan file 18 not 
large enouoch to nold this size 

swap image (see section C.3). 
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SYSTEM COMMAND UNPROTECT 


mmc tion: 
To remove a previously entered protection key from the 
sopecifieda virtual floppy disk. 

Syntax: 
UNPROTECT <disk nr> /<key> (error reset) 

Description: 
This system command provides tne user with the means for 
on-line removal cf all protection attrioutes form <aisk 
nie > « 

Error “Messages: 


UVISK NR ERROR - Disk number entered 15 greater 
tian le. 


HARDWARE ERROR - Abnormal completion status was 
returned by the miniedisk controller 
following a read or write operation. 


INVALID CMD - Syntax error in command sequence. 
fey ERROR - A protection key is required and 


either no key was entered, or 
the enterea key did not matcn. 


Examples: 


UNPROTECT 18 /NR 9 
U le /0964 
maorotect / /Ovfd 
tre) CU 028% 
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Bee MIS STATUS LINE MESSAGES 


The MTS operating system utilizes the first line of each 
terminal for system Status and error message disolays. The 
status line 18 64 characters in length and is divided into 


three display areas as shown below. 


STATUS LINE 


Q 39 40 47 48 65 


VFO eco G 


VFD = Virtual Floppy Disk Status Display 
MS -2- Memory Size Disolay 


MSG - Error Message Disolay 


Meee Virtual Floppy Disk Status Display 
Pes GisplayecOnmGaIins Jwmtormation on the virtual 
drive and disk assignments currently in effect. For each 
attached virtual flopoy disk the following wi] ] be 
isplayed: 
(1) drive letter 
(2) disk number 
Moye restriction indicator (r or blank) 
For example, if the user has attached disk number 3 to drive 
A and disk numper 2S (which is restricted) to agrive C, the 


status display would apoear as follows: 
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Q 10 a 


PA=0 5 25 
ce Memory Size Display 
The center of the status line display shows the 
current memory size for that user ana the "MTS" header. For 
example, if the system default memory size were deing used, 


the disolay would aopear as follows: 


16K MTS 

3. Error Message Disolay 
Ali MTS system commands are validatedqd ang an error 
alert generated if any syntax errors are found. Tne last 16 
positions of the status line are reserved (for tnese 
messages. A valid system command will clear the error 
message disolay of any orevious error alert. The followina 


1$ a summary of system error messages. 


MESSAGE MEANING 
(Blank Display) Initial conditions also the status message 
area iS cleared following the processing 


of a valid system command. 


Mok [N USE Disk numoer soecifiedo is egresently allo- 
cated with read/write access to another 


WSC Gs 


66 





DISK NOT AVAIL Either tne disk number has not been speci- 
fieo and there 1S no disk oresently 
available for assignment; or specified 
disk number 1s not available for 


assignment. 


DISK NR ERROR Disk nmnumoer entered is greater than 31. 


DRIVE LTR ERROR Urive number entered is not one of the 


Metters A throuch i. 


Wreeve NOT AVATL Drive letter has not been specifieo and 
there ig no drive opresently available for 


assignment. 


HARDWARE ERROR Abnormal completion status was returned dy 
the miniw=disk controller following a read 


OF write operation. 


meyALIO CMD Syntax error has been detected Wabeedny = 


GOMmmrana Sequence. 


KEY ERROR The soecified disk requires 3 key and 
either Fs) key has not been entered or tne 


entereq key dig not match. 


meerNTER NOT RDY Abnormal completion Status was returned by 
Boece Orinteremconmturoaltlter foliowina a orint 
operat lon. This error may oe caused by 
printer power off, orinter not selected or 


Seve cer out Of GCaoer. 
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Mmeok DELETED 


When RECOVERY is specified during system 
initialization, this message 1s displayed 
at the terminal which was executing when 
the system failure occurrea. It indicates 
that this terminal user must reestablish 


the environment. 
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me 6 MIS/USER PROGRAM INTERFACE 


ime Frooram Interface Design 

MIS was designed to provide a timeshared, virtual 
8080 microprocessor environment for microcomputer systems 
development. The term virtual is appropriate here because 
the user actually interfaces with MIS for many services 
normally provided by hardware wn a dedicated CPU 
environment. A software interface between user Programs and 
the Sycor 440 hardware is necessary in order to allocate the 
hardware resources equitably and efficiently, while at the 
same time satisfying tne service requirements of several 
competing user Orograms. 

The MTS/user crogram interface consists of a set of 
service routines which may be calleaq by a user program 
through a single entry point to perform terminal I/0, access 
virtual floppy disks, or modify the user's) virtual 
environment. The design was heavily influenced by the CP/M 
operating svsten wnich uses a similar scneme for I[/0. 

The set of service routines may be logically divided 
meee two tyoes of calls onMTS. fhe first types system 
calls, cerform the same functions for a user program as 
System commands provide for the user at a terminal (D.3). 
The functions deal with modifying the user's current virtual 
environment by cnancing memory sizer, attaching various 
virtual disks to virtual Grivess or even logging on ana off 
the system. Service calls are the secona tyre of call 


provided by the MTS software interface. Service calls are 
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used to perform terninal I/0 and access virtal flopoy disks. 
A call to MTS takes the form 
<value> = MTIS(<fid>,<oarm>) 
The first argument, <fid>, is a number from 0 to 17 — which 
identifies the function requested. The <oarm> argument may 
be 3 parameter value, if only aesingle parameter is 
required, or the address of a parameter Jist if more than 
one parameter 1S required. In each case MTS returns <value> 
upon comoletion of the requested operation. This returned 
value may oe an ASCII character coder an error code, or in 
several] cases nave no significance. S8oth system calls and 
service calls are formed as aescribed above. The syntax and 
meme tion of each call! are described in sections e¢ ana 54. 
section 4 details the calling procedures which include the 


register assianments for <fiag>, <oarm> and return values. 
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2. System Calls 
All system commands available to aeuser at a 
terminal are also availanle to a user program through system 
calls. An additional call 1S provided which will display an 
appropriate terminal alert at the user's terminal if entered 
with an error code. Table 1 Summarizes the required 


arguments and return values of each system call. 


TABLE. 7) 


SYSTEM CALL SUMMARY 


FID NAME PARM VALUE 

Q ATTACH bey st error code 
1 DISPLAY MSG error code none 

Zz LOGIN list error code 
5 PROTEC F ist error code 
a) QUIT none none 

> RES Ret list error code 
6 oe size error code 
U UN ise 0) (S16 | tains e error code 


ae Arguments 
Each system call is identified by a number which 
MTS associates with a Deere service routine. a 
meaition to this function identifiers MIS may require one or 
several additional carameters to oerform the reauested 
service. when more than one oarameter 1S required, MTS must 
be passed the address of a byte vector containina these 


parameters. Each system call requires that this vector 
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conform to some fixed format. In general each byte of the 
vector will contain some numeric value or an ASCII character 
code, but Situations may arise when an optional parameter is 
not specified. In such cases the corresoonding byte in the 
oarameter vector must be filled with the value FFH. Section 
4 details the calline orocedure which includes the register 


assignments for the arguments. 


b. System Call Descriptions 
The following oaaes describe in detail each 


system call. 
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SYSTEM CALL ATTACH 


muUMmetions 


To attach a virtual floppy disk to a virtual disk drive 
mor uUS.G Oy a user at a specific terminal. 


Arguments: 


8 


PARM 


= 0 


= address of parameter vector 
byte 0: drive number where A=0, B=l, etc. 
byte 1: disk numoer = 0 to 31 
bytes cos: Orctection key - 0 to 4 ASCII characters 


Description: 


This call simulates the physical oceration of loading 
virtual disk <disk ne> into virtual drive <drive ner>, 


Al) 
fe C 


parameters are optional. if disk and/or drive nmr is 
specified MTS searches the disk or drive mao table 


resoectively for the fae sit available entry. A 
protection key 16 only required if the virtual disk to 
ve attached has teen assigned read/write orotection. 
The call returns an error code upon comoletion. 


Error Coaes: 


0 


2 


10 


Operation successful 

Erther aisk number has not been specified and tnere 
is No disk presently availaole for assignments or 
the specifiea disk is not available for assianment. 


Disk number specified is presently allocated with 
read/write access to another user. 


Disk number specified is greater than 31. 

The specifiec disk requires a key and eitner a key 
has not been entered or the entered key did not 
match. 


Orive numoer soecified is areater than /7. 


Drive numoer has not oeen specified and tnere 1S no 
Grive cresentliy available for assignment. 





ero leM CALL DISPLAY MSG 


Functions 
To display a terminal alert in the status message area 
of the user's terminal. 

Arguments: 
FID = 1 


PAKM = error code 


Description: 
This call takes an error code as input and displays tne 
corresponding predefined terminal alert message on the 
user's terminal. The DISPLAY MSG system cal] provides 
the only way for aeoeouser to display messages on the 
terminal status line. No value 1$ returned oby this 
system call. 
metion: 
0 - blank 
1 = INVALID CMD 
2 - DISK NOT AVAIL 
3 = DISK IN USE 
4 = DISK NR ERROR 
5 - KEY ERROR 
6 = DRIVE LTR ERROR 
7 = PRINTER NOT ROY 
B = HARDWARE ERRCR 
Jem e tT Aok, DELETED 


PO = DRIVE NOT AVAIL 
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SrolEM CALL 


Function: 


Reinitializes the user's MTS environment and reboot 
user’s system from drive A. 


Arguments: 
FID = e 


PARM = aagdress of parameter vector 
byte Of disk mumber =- 0 to 31 
bytes 1-43: protection key = 0 to 4 ASCII charac 


Bescrioticn: 


This system call creates a reinitialized MIS enviro 
mor the user proaram. Memory s1zZe@ remains. a 
current value ana the snecified disk, if anyr wil 
attached to drive A. If no disk number is sneci 
disk number 0 containing the CP/M system is atta 
Drive assiaqnment and memory size will be display 
the status line of the user's terminal. The user gs 
is then reoootec from oarive A. Bly other -crive 
disks are reset. 


mreror Codes: 


O = Operation successful 


LOGIN 


s the 


ers 


nment 
t tne 
1 be 
fied, 
ened. 
ec on 
ystem 
S and 


ec = The specified disk 1s not available for assignment. 


5 = Disk number specified 18 currently allocated 
read/write access to another user. 


G=- Disk number specified is greater than 31. 


S - The specified disk requires a key and either a 
has not been entered or the entered key di 
match. 


8 = Aonormal comoletion status was returnea by 
miniwzdisk controller following a write ooera 
This may indicate that the last virtual 
written to was not closed properly and dat 
been lost. 
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SYSTEM CALL PROTECT 


Functions 


Read/write orotect a virtual disk. 


Arguments: 
FID = 3 


PARM = address of parameter vector 
byte 0: disk numvder —=- 0 to 3i 
bytes 1-4: orotection key - 1 to 4 ASCII characters 


Mescrioctions: 


This system call adds the read/write protection 
attribute to the snecified virtual agisk. This as 
accomplished by the uodate of tne basic configuration 
file .MTSCNFG [C.4}). Uoon normal comoletion of the call 
gisk use is limited only to those who know the 
merotection key. 


Error Codes: 
0 = Operation successful 


4 - Disk number soecified is greater than 31. 


S - Key has not pneen entered or disk is already 
protected with another key. 


8 = Abnormal comoletion status was returneqg by the 
miniwzdisk controller following a read or write 
operation. Gaicemay  imGnreate that the last virtual 
disk written to was not closed properly and data 
has been lost. 
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Sor EM CALL QUIT 


mime C10n 3 


Logs the user off MTS. 


Arguments: 
FID = 4 


PARM = none required 


Description: 


This system call notifies MTS that the requesting user 
proaqram 1S no lemgec= sacti1ve. Contro! wil] not be 
returned to the user program. The user must | elon ial 
through the terminal to regain system facilities. 


Error Codes: 
0 = Operation successful. 


8 = Abnormal comoletion status waS returned by the 
foie a1sk comtroller following a write oneration. 
This may mdicate that the last virtual disk 
written to was not closed properly ana data has 
been lost. If this error code is returned, tne 
terminai alert HARDWARE ERROR jis automatically 
displaved in the status message area of the user's 
terminal. 
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Solem’ CALL RESTRICT 


mumetions 


Assignment of “read only" restriction to a virtual disk. 


Arguments: 


FID 


PAR 


M 


= 5 

= address of parameter vector 

byte 0: disk numoer = 0 to 31 

pytes 1-4: protection key = | to 4 ASCII characters 


Meseriotions: 


This system call adds the read restriction attribute to 
avirtual disk which has been oreviously protected. The 
protection key 1s the same as that used for the orotect 
system call. MIS adds the reaa restriction attribute to 
the basic confiauration file .MISCNFG. 


Error Codes: 


0 


3 


Ueerationm successftu! 


Disk number specified currently allocated with 
read/write access to another user. 


Disk number specified 1s greater than 31. 


The specifiea disk requires a key and either a key 
Rais mo t been entered or the entered key did not 
malice lM. 


Abnormal completion status was returneaq by the 
minieaisk controller following a read or write 
operation. This may indicate that the last virtual 
disk written COuwesemet closed oroperiy and date 
has been lost. 
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Bro tEM CALL Se 


= 
eae Qaeiqgaq@g@eee we & @f@ we a @& 


Function: 


set the amount of memory available to the user. 


Arguments: 
FID = 6 


PARM = memory size in kilobytes 


Descrotion: 


This system call adjusts the size of the user's swap 
image to the sreecified value. The value must fall in 
the range 0 to 48, and also must not be greater than tne 
size of the swap file associated with the user's 
terminal. 


Error Codes: 
0 = Qoeration successful. 
1 = E1ither snoecified size exceeds 4&K, or a value less 


than Yak exceeds the $iz@ of the available swao 
fie 
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erorEM CALL UNPROTECT 


memction: 
Remove a previously Soee1 tied “protection key from a2 
virtual disk. 

Arguments: 
FIO = 7 


PAKM = address of parameter vector 
byte O: disk mumber =- 0 to 31 
bryce sm=4< orfetectiom key = 1 to 4 ASCII characters 


Deseription: 
This system call removes all] crotection attributes from 
the specified virtual disk. This 1S eceomo! 1sh®d by 
meadrtricatiom of the conficuration file .MISCNFG. 
Error Codes: 
0 = Operation successful 
4 = Disk number specified is greater than 3i. 


5 - A protection key 1S required ano either a Key has 
not been enterea or the entered key did not match. 


8 = Abnormal completion status was returned by the 
miniedisk centroller following a read or write 
operation. This may indicate that the ltast virtual 
disk written to was not closed oroperly and data 
has been lost. 
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Be voervice Calls 
The MTS environment currently provides a virtual CRI 
termina] as the primary I/0 device and virtual floppy disk 
drives for auxiliary storage. Access to both of these 
virtual devices is through MTS service calls. A summary of 
the service cal!s showing parameters and returned values 1s 


given in Table e. 


TABI 2 


SERVICE mtr: SUMMARY 


FID NAME PAR™M VALUE 

8 TERMINAL STATUS none true/false 
9 PEADSTERMINAL none character 
10 vik LV Ewe RMINAL character none 

11 wet vee NP ER character ernor coae 
ie SBGSeel ORTVE drive nr error code 
iy SET OMA dma adaress error code 
14 SeT TRACK tChac kant error code 
i> Seieoee 1 OR Sector nr e@cor code 
ee) READ FLOP P Y none errot code 
17 Wit) Castalia. P Y none error code 


A eet terminals 
The MTS virtual terminal simulates tne operation 
of a serial half*aquplex console device. Smcl eum oe ot 
characters may be passed from the terminal keyooard to a 


user proaqram, or from aouser program to the terminal for 
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msmolay. A service call to MIS is mequired to pass each 
character. MTS also scrovides a terminal status service call 
which allows a user program to test the status of a 
terminal. 

The user should keen in mind that characters are 
actually oeing passed between hisS Program and the terminal 
display buffer (D.1.6). This means that inout need not ode 
echoed by the user's Grogram since it already appears on the 
disolay. Simole line editing 18 also provided by MTS on tne 
input data prior to makina that data availaole (for 
processing by the user's program. 

Vhemisier Gam idicectly contribute to improved 
System response vy oroper use of the terminal service calls. 
lt is common oractice when writinaq conversational proaqrams 
to implement a "get cnaracter"™ routine to handle input from 
the terminal. Normally this routine does little more than 
repeatedly test the terminal status until it finds inout 
waiting. In the MIS environment a more efficient method of 
accomplishing the same goal is to immediately read from the 
terminal without testing for status. [epee mo we iS waiting, 
the first character will be oassed immediately. More 
importantly, if there is no input waiting, MTS will block 
the user's program until a character is entereo at tne 
keyboard. The blockeo program may be swapped out and the 
CPU allocated to another user. This method of implementing 
conversationa| programs takes advantage of unproductive 
waiting time in one user program to service additional 


users.e 
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be. Virtual Floppy Disk Drives 

The MTS virtual floppy disk drive provides 
auxiliary storage for user programs on virtual floppy disks. 
These hard-sectored gaisks have 128 bytes per sector, 26 
sectors per track, and a maximum number of tracks determined 
by the size of the file containing the disk image (C.6). 
Each user has eight drives available for dedicated use. 

Drive A 1s activated when the user logs in and 
serves as the user system load device. In a Orocess which 
simulates a cold=start bootstrao load the first four sectors 
on track ] are read into the user's memory space at location 
4OO0O0H. MIS assumes that these sectors contain executable 
code which will load the remainder of the user's system. 
Uniess another disk is specified in the LOGIN command 
meprnor, a fead=onliy disk containing the CP/M operating 
system will be attached when drive A is activated. 

The user may activate any or al). of the 
remaining virtual drives by attaching a virtual disk. This 
is accomplished from the terminal by entering the ATTACH 
System command or directly from the user's orogram by a cal! 
mommis. Aithouch no cirect method for detaching a virtual 
Gdisk is provided by MTS, the same effect is produced 
indirectly by overriding the SUR PERS drive assignment with a 
second ATTACH command. When the second floppy disk its 
attached MTS closes the previously attached aisk and 
releases it for use elsewhere. 

Data transfer between a virtual disk and a user 


program utilizes a 128 byte ouffer in the user's program 
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soace called a DMA buffer. Tne name is derivea from the 
nature of the transfer ooeration: to tne user program it 
appears that data transfer is by direct memory access. 
Before the user program can access a particular 
virtual disk sector the user must specify a complete sector 
address and a OMA puffer. A complete sector address consists 
of driver track, ana sector numbers. Note that MTS will not 
allow a virtual drive to be selected until a disk has been 
attached. 4 OMA buffer is defined by its base address. MTS 
provides a service call to enter each of these four values. 
Once a value has teen entered it will be used for all 
subsequent virtual disk accesses until redefined by a second 


service call. 


ce. Dedicated Printer 

The MTS dedicated orinter provides tne user with 
mre adility to obtain hard-copy output. Soo) Gemecoe tt 
characters may be passed from the user program to the 
orinter for disolay. A service call to MIS is required to 
pass each character. 

Piesorint@er vs a dedicated device. This means 
that once a task is allocated the printer, no other tasks 
may use the orinter. A task is allocateda the printer merely 
by the successful comoletion of a call to the write crinter 
service routine. fhe write printer service routine buffers 
the characters in memory and eventually writes the 
characters to the .MTSPRT disk file. Note that the printer 


does not actually print the characters until the end of file 
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character 1S received. When the user task issues the end of 
file character Ceontrol L)% the printer prints’ the 
information contained mn eMTSPRI. A repeat character 
(control R) causes the information in -eMISPRT to be outout 
momtne printer. After the control R or Control Z has been 
issued the printer 1S not available to any task until after 


all information tn .MTSPRT has been printed. 


de Arguments 
Service calls have the same form as other calls 
to MTS. A numerical function identifier is associated with 
each call to identify the service desired. The second 
argument 1s a single oarameter 1n most casess although 
several of tne service calls require no second araqument. 
Section 4 aetails the calling procedures which incluce the 


register assignments for the arguments. 


Ce Service Call Descriotions 
The following owaaces descriove In oaetail each 


individual service call. 
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SERVICE CALL 


Functions 


TERMINAL STATUS 


Interrogate the status of the user's terminal. 


Arguments: 


FID = 8 


PARM = none required 


Descriptions: 


This service call returns a 


question is 


should not 
processina 
available. 
the READ 
other user 


Value: 


OOH |= all terminal 


FFH = terminal 


terminal input waiting?” 
be usec in those situations where ro further 
be accomolished until 

In such a case 
TERMIWAL 


inout waiting 
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it 
service call 
tasks while waiting. 


Inout processed 


value answering the 


TERMINAL STATUS 


terminal imput 1s 
18 more efficient to suse 
to allow porocessing of 





BeRVICE CALL 


Functions 


Read the available 


terminal. 


next 


Arguments: 
PID = 9 


PARM = none required 


Mescription: 


This service cal} 
The 


Each ynput 


user program. 
characters. 
return. It 


passes 
character from the user's terminal 
maximum 
line 
7S Not necessary for user programs to 


character 


the 


size 


next 


from 


available 
disolay buffer to the 
input 


READ TERMINAL 


the user's 


ASG 


line ys Ste 


is terminated by a carriage 


ecno 


input characters since they are already arisolayed on the 


user's terminal 
orogram. 


Values 


cefore becoming availabole 
Line eciting functions are orovidea by MIS. 


to the user 


mesivmole ASCII character =- the end of each input line is 


indicated by the 


QOH). 
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return of a carriage return 


(ASCII = 





mermviICcet CALL 


Functions 


To write 


Arguments: 
FID = 


PAKM = a 


Bescecrioption: 


This service cal] 
user 


the 
display. 


eursor to first position of the current 
(ASCII = 


outcut 


line 


WRITE TERMINAL 


Secivaracter, to the user's terminal. 


single ASCII character 


Soecifivec character from 

terminal disolay buffer for 
CASC Iie y= O00) returns the 
line. Line Feed 
cursor down one line. Each 


be terminated oy the CRLF 


passes the 
Sregram to "tne 
Carriage return 


OAH) moves the 
wt) normally 


Somoination. 


Values: 


None returned. 
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memvICE CALL 


mumetions 


To write 


Arguments: 
FID = 


PARM = a 


Deseription: 


This service cal] 


WRITE PRINTER 


Gmemaracter to the printer. 


single ASCII character 


passes the soec) tied character from 


the user orogram to the printer ouffer. The orinter 
does not orint any cnaracters unti] the “end of file 
character CEeontrc] Z) is received. If an end of file 
character had been previously received, tne repeat 
character (contre R)} may ove issued resulting in the 
printing of information uo to the last end of file. 
Error Codes: 
0 = Operation successful 
7 = Printer iS not ready. Printer may de turned off, 
Not selected or out of paper. 
8 = Abnormal completion status was returned by the 
miniedisk controller following a write operation. 
11 = Printer 1S in 4 6use. This code indicates that 
eamother task currently has contro! of the printer 


Sreeene primter 1S currently orinting a file. 


12 - The end of the oprinter file .MISPRI has been 
exceeded. The user must recreate the .TSPRT file 
with a laraer file size in order to alleviate this 
error {C.5]. 
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SERVICE CALL | SELECT DRIVE 


Punction: 


Selects the virtual floppy disk drive to be used in 
subsequent floppy disk accesses. 


Arguments: 


Fi) ste 


PARM = ogrive number where A=0, BH=l, etc. 


Beseriotion: 


This service call selects one of the eight virtual 
flopoy disk drives available toe eacn user orogran 
for use in suosequent flopoy disk accesses. Before 
a drive can be selected, a virtual disk must be 
attached. 


Error Codes: 


) 


6 


10 


Operation Successful. 


Drive number soecified iS greater than 7. Selected 
drive 18 changed. 


Abnormal completion statuS waS returned by the 
miniedisk controller following a read or write 
operation. 


Drive specified is not In uSe. Indicates that No 
virtual gisk has been attachea to tne specified 
drive. Selected drive 1S unchanaed. 





SERVICE CALL SET DMA 


memetions 


Sets the base address of the 128 byte DMA buffer to be 


used 


in subsequent floppy disk accesses. 


Arguments: 


FID 


PARM 


= base address of DMA buffer 


Descriptions: 


The DMA puffer reauired to access a virtual floopy disk 


must be a conticuous block of 128 bytes located in tne 
user's memory space, i.e. with base aduoress aqreater 
than 4000H. Specifying a DMA address areater tnan or 
equal to FFOQH will nave unpredictable results, but can 


normally be expected to cause a system crash and 
SuDpsequent deleticn of the user's task upon recovery. 


merror Codes: 


0 


Le 


Ooeration successful. 
Address specified is less than the dase of user's 


memory space. Current OMA address remains 
unchanged. 
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mieevICE CALL SET TRACK 


@eaeede®’@& @ = @& @& & t/ S&S =seee @&@ @& @ @ w& 


Function: 


Sets the floppy disk track number to be used in 
Subsequent virtual floppy disk accesses. 


Arguments: 
FIO = 14 


PARM = track numoer = 0 to 76 


Description: 


This service call] sets the track numoer to be used mn 
subsequent floopy disk accesses. Values may range from 
ometo 76. The value cannot be validated until Tt 1s 
associated with a virtual floppy disk numbers therefore, 
no validation 18 performed until 3 read or write 
operation is requested. 


Error Codes: 
0 = Operation successful 


12 - Track number specified is greater than 76. CuRrrent 
value of track number remains unchanced. 
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permvVICE CALL Sede oer Glo 


mametions: 


sets the floopy disk sector number to be used in 
subsequent virtual floppy disk accesses. 


Arguments: 


erm S06 


PARM = sector number = 1 to 26 


Description: 


This service call sets the sector number to be used 
im subsequent virtual floopy disk accesses. Since 
each floopy cisk track contains 26 sectors numbered 
Gacmeeteto cc, this vValUm® cannot be less than 1! nor 
greater than c6. 


Error Codes: 


0 - 


ve = 


Operation successful. 
Sector number specified is less than 1 or oreater 


than ec6. Current value of sector number remains 
unchanged. 
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MermViCE CALL 
Functions: 


Simulates Reading a ies 


Arguments: 
FID = 16 


PAKM = none required 


Description: 


mais Service cal! 
by mapping 


Simulates reading from a 
the current drive, 
mto a miniedisk address, 


ReaD fet Oe Pay 


Syvyuwe Secror strom a tlopoy Gdisk. 


f |i veileien’: disk 
and sector numbers 
rminiwt~aisk sector 


track, 
reading the 


into a buffers and moving 128 bytes from the miniw-disk 
buffer into the current DMA ouffer in the user's memory 
space. Eerorom Tay Gccurrat two points in the process. 
If the calculated miniw-disk address falls outside tne 
bounds Ont the virtual Gisk file attached to tne 
Beeci ified virtual drive, it indicates an error in the 
specified track number. Errors may also occur during 


miniweydisk read anc write 


must consider such 
since MTS provides 
the cause. 


Error Coages: 


hardware 
insufficient 


ooerations. A user eorogram 
errors as irrecoverable 
information to determine 


by the 
or write 


returned 
read 


status was 
following a 


0 = Operation successful. 

8 = Aonormal comoletion 
miniedisk centroller 
operation. 

le - 


Calculated miniw-disk address out of bounds. 


Prou= 


able error in specified track numoer. 
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SERVICE CALL 
Functions 


Simulates writing a 128 byte 


Arguments: 
FID = 17 


PARM = none required 


Descriptions: 


fiays service cal] 


Sector 


Simulates writing to a floppy disk 


WRITE FLUPPY 


to o-tloopy disk. 


Dy 


mapeing the current drive, track, and sector numbers 
INtO a miniesdisk aadress; reading the miniedisk sector 
into ae buffer; and movina 128 bytes of data from the 


current DMA buffer 
miniedisk duffer. 

process. If the 
outside 
the specified virtual 
the specified track 
during miniedisk 
Should interpret sucn 

bad sector on the virtual 
the operation with 
track combination. 


drive, 


Error Codes: 


0 - Operation successful. 


ee | Loopy disk 


& = comeletion 


controller 


Abnormal 
miniwydisk 
operation. 


l2 - 
able error 


Shs: 


mumoer. 
reao and write 


a different 


1s read only. 


Status 
following a 


in the user's memory soace 
EPmorsemayecoccur at 
calculated 
the bouncs of tne virtual 


miniedqisk 
disk file attached to 
indicates 
Errors 
operations. 
hardware errors as 
floepoy disk and try 
flocoy disk sector and 


it 


Calculated miniw~disk address out of Dounds. 
in specified track number. 


write 


was 


the 
in the 
falls 


into 
two OO1nts 
adoress 


error mn 
also occur 
The user 
Indicating a 
repeating 


an 
May 


1$ not permitted. 


Dy the 
or write 


returned 
read 


Probe 





a, Calling Procedure 

All calls to MTS, whether system calls or service 
calls, are made through a single entry point at location 
2000H. Each call takes two arguments: the function 
identifier in register Cs and a parameter value or address 
in register pair ODE. In those cases where the second 
argument 1s only aesingle byte the contents of the D 
register are ignored. 

Each cal! to MIS returns a value in the A register. 
This value may be an error code, an ASCII character code, or 
zero. The value zero iS returned by those routines whose 
value has no sianificance such as WRITE TERMINAL. 

Note that the register assignments for arauments and 
returned values conform to the PL/M convention for passing 
parameters. The following examples illustrate the calling 
orocedure for 8080 Assembly Language, ML&B0- and PL/M in the 
MTS environment. Each examole illustrates the sequence 
required to read floopy disk sector ed, track 43 on drive e 


into a OMA buffer at address 4100H. 


ale 8080 Assembly Lanaquage 
NAhen writing in 8080 assemodly language MTS 1s 


accessed by a direct call to the MIS entrv point: 


MTS EQU C00Q0H 
Mv I Cave 7FID = le 
MVI Ere ,DRIVE NR = @ 
CALL MTS POELEC! ORIVE 
MV I lS 7FID = 15 
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LXTI D,4100H *DMA ADDRESS = 4100H 


CAEL MTS 7SET DMA 
MV I C,14 7FID = 14 
MV I E, 43 7TRACK NR = 43 
GC Alok MS roe) TRACK 
MVI G,15 pelo = 
MVI Broce ,SECTOR NR = 22 
CALL MTS oe Oe 6 lon 
MV I C,16 FELD =) 16 
CAleL MTS r,READ FLOPPY 
MV I C,15 7FIO = 15 
MV I eye.5 7;CHANGE SECTOR NR 
CALL MTS poem Oc eVGr 
MV I eye 7FID = 16 
CALL MTS ,READ AGAIN 
oe 6 MLSO 


The readibility of ML80 source orograms may oe 
enhanced oy defining an M80 macro for each call to MTS used 
in the program. The following code segment contains several] 


examoles. 


(MACRO MTS '2000H') 
meer O SELECTSORIVE DNR ° 

eee te, eG = ([DNR]> CALLE [MTS] *] 
(MACRO SETSDMA DMA ! 

eel o>, DE = {[0MA); CALL (MTS) 7} 
(MACRO SETSTRACK TNR ! 

Ceara, GE = [INR]; CALL (MTS) *] 
(MACRO SETSSECTOR SNR ' 

Cee toe Ee = {SNR}; CALL [MTS] °] 
taeGeO READSFLOPPY ‘ | 

Seaetio, CALL {MTS} *] 


Zx SPECIFY COMPLETE SECTOR ADDRESS 4ND DMA SUFFER */ 
MoeLECTMBRIVE ‘2'),; 

(SETSOMA '4100H'); 

([SETSTRACK '43'), 

Poe pore lOR “ec'l); 

[READSFLOPPY]; 
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/* INCREMENT SECTOR NR AND READ AGAIN x/ 
Roe RSoeEcC TOR '23'); 
(READSFLOPPY); 


ome PL/M 


PRR IKI IK IRR IR II KEK RK KKK KKK KKK KIRK KK RAK KEKE KKK KKK / 
7 * SAMPLE PL/M PROGRAM SEGMENT x / 
J RRR KK RIKER RK KK RE KK KKK KKK KKK RAK KKK AK KEKKKAAKKERKK/ 


4OQOQO0H: 


Moek, PROCEDURE; 


DECLARE 

LIT CATER REEY “LITERALEY’, 

MTS MT ‘2000H', 

SEmeCTSORIVE LILT Pic ’% 

SETSOMA ea Ses, 

SETSTRACK oe oy ‘14', 

Ser sot CTOR LIT OS 3 

Peeper eOrPPY LIT So 

DISPLAYSMSG LIT a (ae 
TR RIK KK KK IKK KKK RK KKK IKK RR KKK KKK KEKE KK HKAKK KA KAEREKK / 
/ * MTS INTERFACE PROCEDURES x / 


JR RRR IRR KK KKK KKK KKK KR KK KKK KKH KKK KKK HKKKKKK KKK / 


Mihol: PROCEDURE (FID,PARM); 
IEEE TCEEEEETESEE REESE E SEER OEE SEES SE SE SE OA 
/x PROVIDES TRE MTS INTERFACE FOR x / 
PeeeunellONS WHICH DO NOF REQUIRE A «*«/ 


PoERENGRN VALUE. x / 
Peer UTS FED = MIS FUNETION ID « / 
/* PARM = PARAMETER OR ADDRESS*/ 
/* OF PARAMETER LIST. */ 


LR MK RIKKI KKK REKKKERKEKKKAKRKKK RAK KKK / 
WEm@eARE FID BYTE, PARM ADDRESS; 

GOmTO MTS; 

END MTS1; 


MTSe: PROCEDURE (FID,PARM) BYTE; 

SRR MIR HMR RK KKEKKKEKKKKA KKK KER / 
4x PROVIDES THE MTS INTERFACE FOR x / 
/* FUNCTIONS WHICH REQUIRE A VALUE */ 
4x RETURNED. INPUT PARAMETERS ARE x / 
4x THE SAME AS IN MTS1. x / 
LRM KKK KKK RKKAKEKKKKK KKK AKKKK/ 
DECLARE FID BYTE, PARM ADDRESS; 

GO TO MTS; 

END MTSe; 
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LRM RRR KK RK RMR MK RK KH KKK RK KKK KKK KEKE KKKK KAA K AK / 


7x SPECIFY COMPLETE SECTOR ADDRESS AND DMA BUFFER */ 


EEE EE EEE EEE REESE EEE SEER ESE SESE OEE SSS SOSS ESS SESE SS © ee OA 


GALL MISI(SELECTSDRIVE, 2); 
CALL MTSICSETSOMA, 4100H); 
BAe MTISICSETSTRACK, 4&3); 

mabe MISI(SETSSECTOR, 22); 


LRH RIK KR RK KKK KKK KKK KR KKKRKKEKKKRKKAKKAKR RRA / 


4x READ FLOPPY RETURNS AN ERROR CODE WHICH WILL & / 
fee se RETURNED fO MTS TO BE DISPLAYED ON THE x/ 
mer TERMINAL STATUS LINE. x / 


REECE ETE SESE CC USEESESOCSSSOSCSSCCSSSSSS SSS SSS S SSS e SES, 
BALE MISICDISPLAYEMSG, MTISeC(READSFLOPPY,90)); 


/x INCREMENT SECTOR NR AND READ AGAIN x / 


mem MISICSEISSECTOR, 23); 
meee MESICDISPLAYIMSG, MTSeC(READSFLOPPY,0))G_ 


END USER; 


EOF 


oe) 





Se Limitations on User Programs 
MTS was designed to provide each user with his own 
virtual 8080 MiGhOerOCcCeSSor. Unfortunately, the 
architecture of the 8080 CPU jis not amenadle to self- 
Virtualization. As a conseauence several limitations must 
be Imposed on user orograms running in the MIS environment. 
These limitations are: 

(1) The user's memory space extends from address 4000H to 
FEFF, a total of 48,896 bytes. All user code, data, 
and buffers must be contained within this area. of 
memory. 

(2) All user-definec stacks must he four bytes longer than 
the maximum size reauired by the user. The four extra 
bytes are needec if an interrupt occurs while the 
user's Stack is full. Failure to provide this 
additional space may result 31M random execution errors 
which are not reproducible and extremely cifficult to 
Giagnose. 

(3) User orograms should not read or write directly to I/0 
ports while running under MIS. Terminal ana floopy 
disk access is provided by MTS service Gael es:. 
Attempts to interface directly with the Sycor 440 
peripherals or auxiliary storage devices may interfere 


with the operation of MTS and aqamage other users. 
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eee /M = MIS CP/M INTERFACE 


1. CP/M to MTS CP/M Program Conversion 
Programs may be easily converted from execution 
under the basic CP/M system to execution under the MTS CP/M 
system. In the basic version of CP/M the base aadress of 
the system is OOH whereas the base adoress of the MTS 
version of CP/M is 4Q00H. EAS eis the fundamental 
Gifference between the two versions of CP/M. By taking 
existing programs and transltating CP/M related acadresses up 
py 4Q00H these programs will fun Im the. Mis. "€r7™ 
environment. 
opecifically, the following addresses must be 
modified: 
Ca) seraurtt file control block from OQ0SCH = 007CH changed 
Gor 40SCH = 407CH 
Bepedetault i260 byte disk buffer from O0080H - OO0FFH 
changed to 4080H - 4OFFH 
(c) default address of transient program area from 0100H 


changed to 4190K 


2. PRT Proaqram 
A program called PRT has been written for the MIS 
CP/M operating system pen provides a printer system 
command capaoility. PRT may be used in two ways. 
PpSsitie if sar user emters an 1/0 contro! P to CP/™ the 
printer switch is activated theredv causing all information 
which is disolayea on the terminal screen to also be 


Gisplayed on the printer. Recall that the printer requires 
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an end of file character before information output to the 
printer is actually ecrinted. After the user has issued the 
command: 

S| 
the program outputs the end of file character thereby 
causing the printing cf the Jatest information. 

Becono, rel may be utilized to print any ASCII CP/M 

file. After the user enters the command: 

PRT <filename> 


the PRT program causes the hardcopy outpout of the file. 


eA) re 
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MIS PROGRAM LISTINGS 


SKRERRRERA RA RR BR BR RRR RR BR RRR RR RRR RR RR RR EK EK RK RK 


7* GLOBAL IDENTIFIERS */ 
A BRERA RAR AA RBBB BAR BKK BRR EK ER ROR EER ERR ER EEK EZ 
A* K/ 
7/* THE FOLLOWING DECLARATIONS DEFINE SYSTEM IDENTI- */ 
“* FIERS WHOSE SCOPE IS GLOBAL THROUGHOUT MTS. THESE */ 
/* IDENTIFIERS MAY BE DIVIDED INTO THREE DISTINCT */ 
7* GROUPS. THE FIRST GROUP INCLUDES ANY IDENTIFIER */ 


7% 
* 
7 
1 
SR 
A 
“* 
“* 
O* 
eS 
“* 
“* 
“* 
i 
7% 
1 
“* 
i 
eS 
i 
* 
7% 
i 
A 
“* 
7 
7 
1 
At 
i 
“* 
i 
“* 
i 
i 
“* 
7 
eS 
i 
“* 
7S 
7 
eS 
i = 
“* 
i = 
4 
A* 
iS 
7 
7 
“* 
7 # 
S# 
S*% 
1 * 
AK 
“*® 
A 
S* 


CONSIDERED GLOBAL BECAUSE IT IS REFERENCED IN TWO = xv 
OR MORE MODULES OF THE MTS ML&O SOURCE PROGRAM. BY */ 
INCLUDING THE DECLARATIONS FOR ALL SUCH IDENTIFIERS*/ 
IN A SINGLE MODULE, INTERMODULE LINKAGE IS GREATLY *7 
SIMPLIFIED, AND THE SOURCE PROGRAMS’S READABILITY */ 


AND CLARITY ARE IMPROVED. */ 

*/ 
THE SECOND GROUP OF IDENTIFIERS INCLUDES THOSE KS 
VARIABLES WHICH, TAKEN TOGETHER, DEFINE THE STATE ¥*7 


OF THE SYSTEM, I.E. THE SYSTEM STATE BLOCK. THE */ 
CONCEPT OF SYSTEM STATE IS IMPORTANT IN MTS BECAUSE*/ 
THE SYCOR 440 HARDWARE ARCHITECTURE PROVIDES NO */ 
PROTECTION AGAINST INADVERTENT OR MALICIOUS TAMP- */ 
ERING WITH SYSTEM CODE BY USER PROGRAMS. TO MINI-~ */ 
MIZE THE EFFECTS OF SYSTEM CRASHES CAUSED BY SUCH ¥*/ 
TAMPERING MTS PROVIDES A LIMITED RECOVERY CAPABIL- *7 
ITY. AFTER A TASK’S TIMESLICE EXPIRES, AND JUST */ 
PRIOR TO INITIATING A NEW TASK, THE MTS MONITOR *%/ 
COPIES THE CONTENTS OF THE SYSTEM STATE BLOCK TO A x*/ 
FILE NAMED .MTSRCVAR. IF A CRASH OCCURS WHILE THE */ 


NEW TASK IS EXECUTING, RECOVERY MAY BE ACCOMPLISHED*/ 
BY REBOOTING MTS AND READING THE CONTENTS OF */ 
-MTSRCVR BACK INTO THE SYSTEM STATE BLOCK. THE * / 
TASK WHICH CAUSED THE CRASH IS THEN DELETED AND */ 
NORMAL OPERATION CONTINUES. */ 

KZ 


THE THIRD AND FINAL GROUP OF IDENTIFIERS INCLUDES ¥*/Z 
SYSTEM DATA ASSOCIATED WITH A PARTICULAR USER TASK. */7 
SINCE THIS DATA IS ONLY USED WHEN ITS ASSOCIATED KS 
TASK IS ACTIVE, THE SPACE REQUIRED FORMS A SYSTEM #7 
AREA IN THE TASK’S SWAP IMAGE. THIS DATA IS SWAPPED*/ 
IN AND OUT ALONG WITH THE USER AREA OF THE SWAP */ 


IMAGE. */ 
a 

THE THREE PRIMARY IDENTIFIER GROUPS DESCRIBED “7 
ABOVE MAY ALSO BE SUBDIVIDED BASED ON USAGE AND eA 
STORAGE ALLOCATION REQUIREMENTS. THE GROUP AND */ 
SUBGROUP HEADINGS FOR DECLARATIONS IN THIS MODULE ¥*/ 
ARE AS FOLLOWS: % / 
e7 

A. GENERAL SYSTEM DECLARATIONS */ 

B. SYSTEM STATE BLOCK DECLARATIONS *K/ 

1. SYSTEM CONTROL 44 

2. TASK CONTROL TABLE */ 

3. DISK MAP TABLE 7 

C. SYSTEM SWAP AREA DECLARATIONS ~y 

1. VIRTUAL DISK CONTROL BLOCK ok 7 

2. SWAP STACK */ 

*S 

THE ORDER OF ALL DECLARATIONS IN THIS MODULE MUST #*/ 


BE MAINTAINED TO PRODUCE A PROPERLY FORMATTED */ 
OBJECT MODULE. IN THIS REGARD SPECIFICATION OF THE */ 
INITIAL ATTRIBUTE IN A DECLARATION MUST BE CONSID- */ 
ERED CAREFULLY SINCE THE ML&80 COMPILER ALLOCATES */ 
DIFFERENT AREAS OF MEMORY FOR INITIALIZED AND */ 
UNINITIALIZED VARIABLES. SPECIAL PRECAUTIONS ARE */ 
ALSO NECESSARY FOR LOCAL VARIABLES USED ONLY IN */ 
SINGLE MODULES. THE ML&S&O@ LINK EDITOR IS FORCED TO */ 
ALLOCATE SPACE FOR SUCH VARIABLES WITHIN THE */ 
MODULE’S CODE AREA BY DECLARING EACH SUCH VARIABLE */ 
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7* WITH TYPE DATA. THIS TECHNIQUES IMPOSES A PENALTY #*-7 


/* OF THREE BYTES PER DECLARATION FOR UNNECESSARY */ 
/* JUMP INSTRUCTIONS, BUT THE SIMPLIFICATION OF */ 
7* INTERMODULE LINKAGES MAKES THE TRADEOFF WORTHWHILE. *~ 
1% */ 


S RRB RA RRB ABBR RR RR BR IRR BR AB OR OR OR A AR IB AR OR TR BR OR ARE ARR AR RR TR RR ORB OR ORR RB RR ROK Z 
A RRR RB RRB RR RRB RK RB BR EB EE BR RB RRB RB OR OR OK RK RK OK OK KB ROK RR KKK KKK Z 


SRR RAR RR BRK BRR RB BRB BB RB RR RR RR OR RR BR ROR BR BB OR RR RRB RR BRR RE KBR HK Z 


PRK EKAERKKE GENERAL SYSTEM DECLARATIONS 226:k20RRRKRICK/ 
SA BRR R BRK BRK BR RR OR RR AR RR ROB RRR BR ROR RR RR AR RR RR RR OR SRR OR ARE ROR OK OR KK EZ 


DECLARE PRTSSTAT BYTE INITIAL (9); 
/* PRINTER STATUS BYTE *~ 
DECLARE BUFSPTR(2) BYTE INITIAL (90,1); 
/* POINTER INTO PRINT BUFFER *7 
DECLARE RESERVED( 13) BYTE INITIAL (90,9,9,9,9,9,9,90,9,9, 
0,90,90); 
7/* RESERVED FOR CASSETTE AND ASYNC INTERFACE 1K / 
DECLARE PARM(2) BYTE INITIAL (9,9); 
DECLARE DISK BYTE INITIAL (90); 
DECLARE DRIVE BYTE INITIAL (9); 
DECLARE ERROR BYTE INITIAL (9); 
DECLARE LOCK BYTE INITIAL (1); 


7* SYSTEM LOCK - */ 

1% BIT @: SWAP LOCK - MTS CODE EXECUTING */ 

7* BITS 1-7: (NOT USED) */ 
DECLARE TASKSTIMER BYTE INITIAL (COrFHD) ; 

7* COUNTER RECORDING HOW MANY TIMER INCREMENTS */ 

/* (50MS) REMAIN IN TIMESLICE */ 


DECLARE SVCS83STACK(290) BYTE INITIAL (9); 
“/* SERVICE MODULE STACK */ 
DECLARE SYSSSTACK(20) BYTE INITIAL (9); 
7* MONITOR MODULE STACK */ 
DECLARE MDBUF( 512) BYTE INITIAL (6); 
7* MINI-DISK BUFFER - CONTAINS ONE SECTOR */7 
DECLARE MDSAD(2) BYTE INITIAL (9,0); 
7* SECTOR NUMBER OF DATA CONTAINED IN MDBUF *7 


A RRR RRR KRHA REE EE EK OB RE OB OK OK ROE OK OE AE AR OK OE OR OK EK EOE OE OB OR RK / 
SRAERERAREKK SYSTEM STATE BLOCK DECLARATIONS *#*********KZ 
ARR RRR RRR RRR ERE RR AB ER AR AR RAR ER SRR AR OK ASIC OR OE A OO RR SR OE OR ER OR OK / 


SRERRKRKEKEKKEREREKEKEEK SYSTEM CONTROL 86 RKKKRKKRKRK KKK 


DECLARE TASK BYTE INITIAL (90); 

7* TERMINAL NR OF TASK CURRENTLY ALLOCATED 7 

/* THE CPU - RANGE 0-3 ara 
DECLARE RECSFILE(2) BYTE INITIAL (9,90); 

/* MINI-DISK SECTOR NUMBER OF .MTSRCVR */ 
DECLARE CNFGSFILE(2) BYTE INITIAL (9,9); 

/* MINI-DISK SECTOR NUMBER OF .MTSCNFG *7 


SREREREKKKEREREKEK TASK CONTROL TABLE *% 268% RR RKRKKRKRKK / 
/* THE TCT CONTAINS INFORMATION ON THE STATE OF EACH *x~7 
7* TASK AND DATA REQUIRED TO SUPPORT SWAPPING. EACH */ 
7* VARIABLE CONTAINS FOUR ENTRIES - ONE FOR EACH OF */ 


/* THE FOUR TERMINAL TASKS. 7% 
SRR AR RE ER RAR RAR OR BR IR OR RR AR OK OB ER OK OR OK IE OR OB OR AE OE RE OR OE RE OE EE OE EK OK 7 


DECLARE TCTSSTATUS( 4) BYTE INITIAL (9,9,90,90); 


Sk BIT 8: SIMULATE BOOTSTRAP DURING NEXT *7 
1% TIMESLICE / 
7 BIT 1: CALL MCP DURING NEXT TIMESLICE 7 
“* BIT 2: (NOT USED) 7” 
7 BIT 3: (NOT USED) */ 
7 BIT 4: RST 7 DURING NEXT TIMESLICE * / 
oe BIT 5: BLOCKED FOR TERMINAL I70 */ 
Ax BIT 6: CURRENT SWAP IMAGE RESIDES ON 7 
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SR MINI-DISK ; %/ 
Sm BIT ¢@: CURRENT SWAP IMAGE IN MEMORY */ 
DECLARE TCTSDM( 32) BYTE INITIAL (9,9,9,0,9,0,0,9, 
60,9,9,9,9,9,9,9,0,9,9,09,9,9,9,9, 
9,9,9,90,9,0,9,9); 
/* DRIVE MAP ~- POINTERS TO VIRTUAL DISK ASSOC- *~ 
“* LATED WITH EACH VIRTUAL DRIVE. BYTES 0-7 */ 
7* CORRESPOND RESPECTIVELY TO DRIVES A-H FOR */ 


/* EACH & BYTE ENTRY. */ 
7* BITS 0-4: DISK NR - RANGE 0-31 */ 
7# BIT 3: (NOT USED) */ 
hes BIT 6: READ ONLY FLAG */ 
7% BIT 7: IN USE FLAG */ 


DECLARE TCTSSIZE( 4) BYTE INITIAL (32,32,32,32) ; 

7* SIZE OF SWAP IMAGE EXPRESSED IN NUMBER x~ 

/* OF S312 BYTE MINI-DISK SECTORS */ 
DECLARE TCTSBOE( 8) BYTE INITIAL (0,0,0,9,0,9,90,90); 
DECLARE TCTSEOE(&) BYTE INITIAL (9,.9,90,9,90,0,9,0); 

7* MINI-DISK SECTOR NUMBER FOR EACH SWAP FILE */ 


/* ~ INITIALIZED WHEN MTS LOADED ed 
SRRRRKRKKKKKAKRKKEKRKKK DISK MAP TABLE *%®®XKRKK KKK KKKKK KKK / 
/* THE DMT CONTAINS INFORMATION ON THE STATUS, PRO- */ 
/* TECTION, AND LOCATION ON THE MINI-DISK OF ALL VIR- x7 
/* TUAL FLOPPY DISKS. EACH VARIABLE CONTAINS 32 */ 
/* ENTRIES - ONE FOR EACH POTENTIAL DISK NR. THE KS 
/* ENTIRE TABLE IS LOADED AND VERIFIED DURING MTS 7, 
/* INITIALIZATION. K/ 


7 RAR RAR RRR ORR AR FR OR RR OR RR RRR IR IR RR RB ROR RR 8 ERR 8 8 OR IR IR ROR RR OK OR ORR AR OR OEE OK 7 


DECLARE DMTSFLAG( 32) BYTE INITIAL (0,0,9,9,9,9,9,9,9,0, 
0,9,9,0,9,9,0,89,9,90,9,9,9,9,9,9,9,9,9,9,9,9); 


7k BIT 8: DISK EXISTS */ 

1% BIT 1: IN USE *7 

7* BIT 2: PROTECTED - KEY REQUIRED */ 

1 BIT 3: RESTRICTED TO READ ONLY W/O KEY ¥*/ 

1 * BITS 4-7: (NOT USED) */ 
DECLARE DMTSBOE( 64) BYTE INITIAL (0,9,9,9,0,9,9,9,90, 

0,9,9,9,9,9,9,9,9,9,.9,9,9,9,9.9,.9,9,9,80,9,9,9,6. 

0,9,9,9,.9,9,9,9,9,9,9,9,90,9,9,9,0,9,9,9,9,9,90,90, 

0,9,9,9,80,9,90); 

/* MINI~DISK SECTOR NUMBER FOR BEGINNING x*-7 

7* OF EXTENT */ 
DECLARE DMTSEOE(64) BYTE INITIAL (90,9,9,9,9,90,9,9,9, 

9,9,9,9,9,9,9,9,9,9,9,9,9,.9,9,.9,9,9,0,9.9,0,9.9, 

0,9,9,9,9,9,9,90,9,9,9,9,9,9,0,9,9,9,90,9,0,9,9,9, 

0,9,0,9,9,0,9); 

/* MINI-DISK SECTOR NUMBER FOR END */7 

7* OF EXTENT “7 


DECLARE DMTSKEY( 128) BYTE INITIAL (208) ; 
/* ONE TO FOUR ASCII CHAR PROTECTION KEY */ 


IELTS SSL SLE SESS P ESE SLE SS SS Pte SePLP EDS PSP Ste tere Lt s ht + tS oe 
J RRERERERERK SYSTEM SWAP AREA DECLARATIONS #**®*#** ex *RRKK, 
eS S LLP ESE L LESS SE SS OSS ESS SSS Ph eP hte SSeS StS EPPS SSL SS SSS So ae 


SRRERERKAKEREK VIRTUAL DISK CONTROL BLOCK *#******KKR*R/ 
/* EACH USER TASK HAS AVAILABLE 8 VIRTUAL DRIVES WHICH*/ 


7* MAY BE SELECTED TO ACCESS THE ATTACHED VIRTUAL */ 
7* DISK. FOR EACH USER IT IS NECESSARY TO RECORD *K/ 
7* WHICH DRIVE IS CURRENTLY ACTIVE, AND ADDITIONAL */ 


/* DATA NEEDED TO MAP A VIRTUAL DISK ACCESS INTO A */ 
/* PHYSICAL MINI-DISK ACCESS. ALL THIS INFORMATION IS x*/ 
7* MAINTAINED IN THE VDC BLOCK. THE VDC BLOCK ASSOC- */ 
7* IATED WITH EACH TASK IS CONTAINED IN THAT TASKS KS 
7* SWAP FILE IN A SPECIAL AREA RESERVED FOR MTS SYS~- */7 
7* TEM USE. THIS MEANS THAT ONLY ONE OF THE FOUR VDC */ 
/* BLOCKS MAINTAINED BY THE SYSTEM IS EVER RESIDENT */ 
7* IN MEMORY AT ANY ONE TIME. */ 
ARR ARR AR RRB AR RR RR OK ROB RRR IE IRR RR AR OE IR OR BR AE OR A OR A OR I I IE IR AR OE OE RAC OR IE OR AE OR 7 
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DECLARE VDCSDRIVE BYTE; 


/* BITS 0-2: DRIVE NR FOR DRIVE CURRENTLY 
7% SELECTED 

7k BITS 3-5: (NOT USED) 

vik BIT 6: READ ONLY FLAG 

Ve BIT 7: MODIFICATION FLAG - SET WHEN CON- 
7% TENTS OF BUFFER MODIFIED 


DECLARE VDCSBOE(2) BYTE; 


7* MINI-DISK SECTOR NUMBER FOR BOE OF VIRTUAL 
7* DISK CURRENTLY ATTACHED TO SELECTED DRIVE 


DECLARE VDCSEOE(C2) BYTE; 


/7* MINI-DISK SECTOR NUMBER FOR EOE OF VIRTUAL 
7* DISK CURRENTLY ATTACHED TO SELECTED DRIVE 


DECLARE VDCSSECTOR BYTE; 


7* VIRTUAL DISK SECTOR NR FOR SUBSEQUENT *7 
/* ACCESSES ~- RANGE 1-26 */ 


DECLARE VDCSTRACK BYTE; 


7/* VIRTUAL DISK TRACK NR FOR SUBSEQUENT */ 
7* ACCESSES - RANGE 0-76 *S 


DECLARE VDCSDMA(C2) BYTE; 


7* MEMORY ADDRESS OF 128 BYTE DMA BUFFER x*/ 
7* FOR SUBSEQUENT VIRTUAL DISK ACCESSES *-/ 


DECLARE PRISCNTRL BYTE INITIAL (8); 


as BITS 0,1: TASK *S 
7X BITS 2-5: NOT USED */ 
o*® BIT 6: PRINT BIT *7 
1 BIT 7: IN USE BIT x7 


DECLARE PRTSBOE(2) BYTE INITIAL (9,9); 


/* MINIDISK SECTOR + OF MTSPRT BOE */7 


DECLARE PRTSEOE(2) BYTE INITIAL (0,90); 


7* MINIDISK SECTOR * OF MISPRT EOE *7 


DECLARE PRTSSEC(2) BYTE INITIAL (9,98); 
7* SECTOR * OF CURRENT SECTOR IN PRINT BUFFER *7 
DECLARE SPARES(9) BYTE INITIAL (9,0,9,90,0,9,0,9,9) ; 
7* RESERVED CASSETTE AND ASYNC INTERFACE *S 


*/ 
KZ 


A RRRRRAKAKR KKK KKKKRKAKKK SWAP STACK KKKKKRKKKRKKRRKKMKRKKEK KS 
EACH TIME A TASK IS SWAPPED OUT THE CURRENT OPER- 


i 
7% 
7% 
7% 
7 
a 
a 


ATING ENVIRONMENT, I.E. PSW, BC, DE, HL, AND SP, 
MUST BE SAVED IN A KNOWN AREA SO THAT IT CAN BE 


QUICKLY RESTORED WHEN THE TASK IS SWAPPED BACK IN. 


MTS USES A STACK IN THE SYSTEM AREA OF THE SWAP 
IMAGE TO HOLD THE ENVIRONMENT WHEN A TASK IS 
INACTIVE. 


KS 
KF 
xz 
ie 
ie 
KS 
KS 


SRR RR RAB RR RRR RR RR RR RR RR ORR RR RRR AE IS AR OR AR AR RR RR RR RRR ROR HE RR RR ROR A ZH 


DECLARE SWAPSSTACK( 10) BYTE; 


EOF 


7* AREA IN WHICH USER ENVIRONMENT IS *7 
7%* SAVED WHEN TASK IS SWAPPED OUT */ 
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S RRRBRBRR RAR BABAR BR ARR RRR RR ROR BR ARR BOR BR RRR OB OR ORR RAR RR BR OR RR OK RR BOK OK OK ER OK / 


Vee INTERRUPT MODULE */ 
ABR RRR ERROR ROR RR OR ROR IRI EE TR IRE IR IE EEE IEE IED EDIE SOK HEE OK // 
7 * *K/ 
J 7 
/* ALL HARDWARE INTERRUPTS ON THE SYCOR 440 SYSTEM */ 
/* CAUSE THE EXECUTION OF A RST 1 INSTRUCTION. THIS */ 
/* INSTRUCTION BEHAVES LIKE A CALL TO LOCATION 7 
7* I.E. THE PC VALUE IS STACKED, AND CONTROL TRANS- 7 
/* FERRED TO LOCATION 9008H. DUE TO THIS HARDWARE */ 
7* CHARACTERISTIC, THE USER MUST ENSURE THAT ANY USER x/ 
7/* DEFINED STACKS ARE AT LEAST FOUR BYTES LARGER THAN x*/ 
/* THE MAXIMUM SIZE REQUIRED BY THE USER’S OWN CODE. x7 
7* SINCE ALL PERIPHERAL DEVICES CAUSE EXECUTION */ 
/7* THE SAME INTERRUPT INSTRUCTION, SOME MEANS MUST BE x*/ 
7* AVAILABLE TO DISTIN@UISH BETWEEN DEVICES WHENEVER *x*/ 
7* AN INTERRUPT OCCURS. THE SYCOR +40 SOLVES THIS KS 
7* PROBLEM BY DEFINING AN INTERRUPT LEVEL FOR EACH *K/ 
7* DIFFERENT DEVICE. THERE ARE 17 INTERRUPT LEVELS K/ 
/* WITH VALUES RANGING FROM 9 TO 16. A HIGHER NUMERIC x*v 
7* VALUE ALSO IMPLIES A HIGHER PRIORITY FOR THE */ 
/* ASSOCIATED DEVICE. WHEN AN INTERRUPT OCCURS THE */ 
/* LEVEL IS AVAILABLE ON INPUT LATCH 9. SIMULTANEOUS” xv 
7* INTERRUPTS WILL BE INPUT SEQUENTIALLY IN PRIORITY, */ 
7* 1,E. DESCENDING, SEQUENCE BY LEVEL NUMBER. WHEN 7 
/* THE LEVEL READS ZERO ALL PENDING INTERRUPTS HAVE 7 
7* BEEN PROCESSED. THE INTERRUPT LEVEL ASSIGNMENTS 7 
/* WHICH APPLY TO THE CURRENT NPS SYCOR +460 HARDWARE */ 
/* CONFIGURATION ARE AS FOLLOWS: KS 
1k */ 
7 # LEVEL DEVICE */ 
AK mmr em am a a a a 7 
7 * 16 DEBUGGER */ 
7 15 POWER FAIL 7 
7 # 14 PARITY CONTROL */ 
7 11 ASYNC Comm */ 
7 10 TERMINAL GROUP 90 */ 
7 8 TIMER Ve 
7 6 PRINTER 9 7 
Sk Pe FLOPPY DISK */ 
Tk 1 CASSETTE *K/ 
S# */ 
7/* THIS MODULE CONTAINS THE CODE USED BY MTS TO PRO- */ 
7* CESS INTERRUPTS. THIS CODE CONSISTS OF AN INTER- Se 
/# RUPT CONTROLLER PLUS A SET OF INTERRUPT HANDLER */ 
7* ROUTINES -~- ONE ROUTINE FOR EACH DEVICE. THE INTER- */ 
7* RUPT CONTROLLER SAVES THE CURRENT ENVIRONMENT, */ 
7* IDENTIFIES THE INTERRUPT LEVEL, CALLS THE APPROP- *x/ 
7* RIATE HANDLER ROUTINE, AND THEN RESTORES THE *7 
7/* ENVIRONMENT BEFORE RETURNING TO THE INTERRUPTED */ 
/* PROGRAM. THE HANDLER ROUTINES ARE TAILORED TO THE */7 
7#* SPECIFIC REQUIREMENTS OF DIFFERENT DEVICES. */ 
7* QRDER TO UTILIZE THE CODE CONTAINED IN THE INTER- */ 
7* RUPT MODULE IT IS NECESSARY FOR THE MTS INITIAL- */ 
7* IZATION ROUTINE TO LOAD A JUMP TO THE INTERRUPT “7 
7* CONTROLLER IN MEMORY LOCATIONS 0008-90@60AH. Save 
S* 7 
S# */ 


A RAR RR ROR BOB ROR RR ER RR RR OR A ER OR OR OB ORB OB OR of of OR OR AR OR AR OB RR AR OR OR ORR OB OB OR ROR OE Ok 
ZR ROB KAR ROK OK OK OK 2K 2K OK 2K OK OK OE OR OK OR OK KR OR OK RR BOR ER OK OR OK OR OK OK OOK OK FR OK OK OK 2K BOK OK OK ROR BK OK OK / 


JRC eK 6 TNTERMODULE LINKAGE MACROS $ :t-etce knee / 


DECLARE GLOB1 COMMON; 
CINT MB M2B TB) 
(MB:=O300H] (CTB:=1600H] ([(M2B:=0600H) 


C MACRO 
C MACRO 
C MACRO 
C MACRO 
C MACRO 
C MACRO 


MONITOR 'CHEX MB + @AAH]’ J 

MOVBUF ’'{ HEX M2B + 41H) °] 
READSPRTSBUF °C HEX M2B + 9EH)’ J 
TERMSINPUTSCTRL ’°CHEX TB + 7395H)’] 
BLINKSCURSOR ‘°C HEX TB + 803H)’ J 
MISSMSG °CHEX TB + 837H]’ J 
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[MACRO PRTSSTAT ’GLOB1(@)’] 
[MACRO BUFSPTR ’GLOBI(1)°] 
CMACRO LOCK ’°GLOB1(15H)°] 

[MACRO TASKSTIMER °*GLOB1( 16H)’ ] 
[MACRO TASK °*GLOB1(2414H) °] 
{MACRO PRTSCNTRL ’°’GLOB1(39EH) °*] 
[MACRO SWAPSSTACK °GLOB1(3B7H) ’ ] 


7S RRRKKKKBRKKEK INTERRUPT PROCESSING MACROS ***®****®***KEK/ 


[MACRO LEVEL ’'IN(8®)°] 

{MACRO DEBUGSLATCH °OFFH’ ] 

[MACRO CSSTSLATCH ’°’ 85H’ ] 

CMACRO PRINTERSLATCH °8AH’ ] 

{MACRO PRTSCHAR * OUTC&AH) =A’) 

[MACRO PRTSRDY °*OBOH’ ] 

[MACRO CNTRLSZ ° 1AH’ ] 

(MACRO TIMERSLATCH °@2H’ ] 

{MACRO TERMINALSLATCH ’°3EH’ ] 

[MACRO MATRIXSLATCH '3FH’ ] 

{MACRO INTSPENDING °C A={LEVELINA)D !ZERO’ ] 
[MACRO DEBUGSINTSPENDING ’'CA={ LEVEL]; A::16) ZERO’ J 


SRRRKRKKERREREKKEK MODULE DECLARATIONS **R KKK KRRRRKRKKKZ 


{INT TOP BLINK EP] (BLINK:=4] (€ TOP:=30)] CEP:=TOP-10] 

DECLARE INTSSTACK DATA (0,90,9,9,90,9,9,9,9,9,9,9,9, 
6,9,9,9,9,9,90,9,9,90,9,9,9,9,9,9,9); 

DECLARE BLINKSTIMER DATA (1); 

DECLARE SAVHL DATA (09,90); 

DECLARE TN DATA (6); 


A KRERKRKKKERKKRKKKKKKKK PROCEDURES KRKKeKKRKEKRKRKKRKRMBRKK / 


DUMMYSHDLR: PROCEDURE; 

ETE SELES ESS OLS SS EL Le L EPSPS eS EPPS SSS eS SPSS SSE SESS SSS be 
7* THIS PROCEDURE PROVIDES A COMMON EMPTY INTERRUPT */ 
7* HANDLER FOR THOSE INTERRUPT LEVELS WHICH SHOULD / 
7* NEVER OCCUR WITH THE CURRENT NPS SYCOR 440 HARD- */ 
7* WARE CONFIGURATION. ITS ONLY ACTION IS AN IMMEDI- */ 


/* ATE RETURN. SI 

7* CALLED BY: INTERRUPTSCONTROLLER *K/ 

A RRR RR RR OR RRR EER RE K E EEE ROR R AR ERR AR CTR ER AR IR EEE IRE EEE EEK / 
RETURN ; 


END DUMMYSHLDR; 


DEBUGSHDLR: PROCEDURE; 

7 RAR ARR TR TR RR OR IE TR OR ART FRR AB TR OR OK OK ROK OR 6 OR AE OR IR BR OR oR IR IR IB OR IE OIE IR OR IB IK I IK OK BR OK OK ROK / 
7* THIS HANDLER IS INCLUDED TO ALLOW USAGE OF THE */ 
7* SYCOR 340B DEBUGGER IN THE SOFT DEBUG MODE WHEN */ 
7* RUNNING UNDER MTS. IT WAS DISCOVERED DURING DEVEL- */ 
7* OPMENT AND TESTING THAT THE DEBUGGER IS LARGELY */ 
7* UNRELIABLE IN THE SOFT MODE. THIS IS APPARENTLY */ 


7* DUE TO HARDWARE CHANGES IN THE 440 SYSTEM MADE */ 
7* AFTER THE DEBUGGER WAS DESIGNED. */ 
7* CALLED BY: INTERRUPTSCONTROLLER */ 


A HERR TR RK BR RR RK RK KR RK RK OK BR RR OK OR EK RR OK OK EK IR OK OREO OE HE OK RK OK HR OK OK OK OB RE OK / 
7* DISPLAY ENVIRONMENT ON DEBUGGER */ 
HL=2+SP ; 

MC 6H) =CA=L); MO VH)=C(CA=H) ; 
7*® ACKNOWLEDGE DEBUG INTERRUPT x*/ 
OUTC [ DEBUGSLATCH] ) = ( A= 1) ; 
7* CPU IDLES WHILE WAITING FOR DEBUGGER TO */ 
7* INITIATE RESUMPTION OF EXECUTION */ 
DO WHILE ( DEBUGSINTSPENDING] ; 
END; 
END DEBUGSHDLR; 


CASSETTESHDLR: PROCEDURE; 
OUT( { CSSTSLATCH] ) = ( A= 10H) ; 
END CASSETTESHDLR; 


PRINTERSHDLR: PROCEDURE; 
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SRERRKKKKK KKK KKK HAH KKH RAK ARKH KH BK KEE ER EER ER EERE EK / 
7* THE PRINTER INTERUPT HANDLER INPUTS THE PRINTER */ 
7* STATUS. IF THE CONTROL BYTE INDICATES THAT NO TASK IS x7 
7* CURRENTLY ALLOCATED THE PRINTER, NO ACTION IS TAKEN. KS 
7* HOWEVER, IF A TASK IS ALLOCATED THE PRINTER AND THE */ 
7* DEVICE IS NOT READY THEN THE MESSAGE ’*PRINTER NOT RDY’ x/ 


7* 18 DISPLAYED AT THE USER'S TERMINAL; OTHERWISE A */ 
7* CHARACTER FROM THE PRINT BUFFER LOCATED AT 100H IS */ 
“7* OUTPUT TO THE PRINTER. THIS PROCESS CONTINUES UNTIL */ 
7* AN END OF FILE CHARACTER HAS BEEN OUTPUT TO THE */ 
7* PRINTER AT WHICH TIME THE DEVICE IS RELEASED FOR USE */ 
“* BY ANOTHER TASK. */ 
7* CALLED BY: INTERRUPTSCONTROLLER */ 


LS RBH RRR RR RB KBR ER OK ER RR OK OR OR ORR EEE OK EE IE IE FE OE IE OR OR RE 8 OR OE I OE OK 6 OE OK OK EE OK EK OK ORK KOK / 
A= INC CPRINTERSLATCH]) ; 
EPRISSTATI=A; 
OUT( C PRINTERSLATCH] )=( A=80H); “* CLEAR PRINTER INTERUPT */ 
IF (CA=CPRTISSTAT]; A::CPRTSRDYJ]) 'ZERO THEN 
DO; 7* PRINTER NOT READY */7 
IF CA=CPRTISCNTRLJ; A::9) !ZERO THEN 
DO; /7* GET TASK + FOR ERROR MESSAGE */7 
TN=(C A=(€ TASK]); 
{ TASK] =( A={€{ PRTSCNTRL] 8&8 O3H) ; 
E=7; CALL [(MTSSMSG]1; 
( TASK] =( A=TN) ; 
C PRTSCNTRLJ=( A=0); 7“* RESET PRINT CONTROL x*~7 
RETURN ; 
END; 
END 
ELSE 
DO; “* PRINTER IS READY FOR CHARACTER OUTPUT x7 
IF (A=<CPRTSCNTRL]; A=<A) CY THEN 
DO; 
HL={ BUFSPTRI] ; 
IF (A=3; A::H) ZERO & (A=@; A::L) ZERO THEN 
DO; “* END OF PRINT BOFFER, GET NEXT SECTOR xv 
CALL (CREADSPRTSBUF] ; 
( BUFSPTRI =( HL= 1908) ; 
END; 
IF (A=MCHL); A::CCNTRLSZ1) !ZERO THEN 
DO; 7* PRINT OUT CHARACTER */7 
C PRTSCHAR] ; 
(C BUFSPTRI=( HL=(BUFSPTR], +1); 
/* BUFSPTR INCREMENTED x7 
RETURN ; 
END 
ELSE 
/7* EOF ENCOUNTERED, RESET PRINTER */ 
[ PRTSCNTRL] =( A=9) ; 
END; 
END; 
END PRINTERSHDLR; 


TIMERSHDLR: PROCEDURE; 

A RARE EE BE EE EE EE TE EK OB OB SR AR IB OR RIE IE RE IE OR IS OE IE OE IR I IE I OR RE IE IR IR RE EE EZ 
/* THE TIMER INTERRUPT HANDLER MANAGES THE TWO FUNC- x/ 
7* TIONS OF MTS WHICH OCCUR AT PERIODIC INTERVALS: */ 
7* BLINKING THE TERMINAL CURSORS AND RETURNING CONTROL*/ 
7* TO THE SYSTEM WHEN A TASK’S TIMESLICE EXPIRES. IN ¥*/ 
7* ORDER TO KEEP TRACK OF THE TWO INTERVALS INVOLVED, */7 
7* THE PROCEDURE MAINTAINS TWO COUNTERS. THESE COUN- *~/ 
7* TERS ARE EACH SET TO AN INITIAL VALUE AND THEN */ 
7* DECREMENTED EACH TIME A TIMER INTERRUPT OCCURS. */ 
7* THE ACTUAL VALUE CONTAINED IN EITHER COUNTER AT ANY*/ 
7* INSTANT REPRESENTS THE TIME REMAINING IN THE INTER-*/ 
7* VAL IN MULTIPLES OF SOMS SINCE THIS IS THE FIXED *K / 
7* INTERVAL BETWEEN TIMER INTERRUPTS. WHEN THE TASKS */ 
7* TIMER COUNTER HAS BEEN DECREMENTED TO ZERO, CONTROL*/ 


7* 1S TRANSFERRED TO THE MONITOR WHERE THE CURRENT */ 
7* TASK IS SWAPPED OUT AND A NEW TASK SWAPPED IN. */ 
7* WHEN THE BLINKSTIMER COUNTER REACHES ZERO THE */ 


7* BLINK3SCURSOR PROCEDURE IS CALLED. IN EITHER CASE */ 
7* THE TIMER HANDLER RESETS THE COUNTER TO ITS INIT- */ 
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/* TAL VALUE AND CONTINUES. */ 
7# CALLED BY: INTERRUPTSCONTROLLER */ 
SRR BRR RR RR KE EE EE A ER ROK ERR EEK EEK RRR IEE RK EE EEE EE KI 
{ TASKSTIMER]=(€ A=[ TASKSTIMER] —-1) ; 
BLINKSTIMER=(¢ A= BLINKSTIMER- 1); 
IF (A::®@) ZERO THEN /7* BLINK INTERVAL EXPIRED *- 
DO; 
CALL [ BLINKSCURSOR] ; 
BLINKSTIMER=( A=({ BLINK]) ; 
END; 
OUTC([C TIMERSLATCH] }=(A=0); =7* RESET TIMER */7 
IF (A={€ TASKSTIMER]; A::0) ZERO THEN 
DO; 7* TIMESLICE EXPIRED *~ 
IF (A=>{LOCK]) !CY THEN 
DO; 7* SWAPPING UNLOCKED *-7 
BC=10; DE=.INTSSTACK( CL EP]) ; 
HL=.€ SWAPSSTACK] ; 
CALL (CMOVBUF]); 
ENABLE; 
GOTO [MONITOR] ; 


END 
ELSE [{ TASKSTIMER] =( A=1); 
END; 
END TIMERSHDLR; 


TERMINALSHDLR: PROCEDURE; 
PRR RRA HAR HR EEE IR AEE RE RAE EER IRR RE RR AK ER ORE AR ER IESE SK AE AOR AE / 


/* THIS PROCEDURE PROCESSES THE INTERRUPT GENERATED */ 


7* FROM ANY KEY DEPRESSION AT ANY OF THE TERMINALS. */ 
7* IT GETS THE TERMINAL IDENTITY AND THE KEYBOARD */ 
7* MATRIX CODE AND THEN CALLS TERMINALS INPUTSCONTROL *x*-~ 
/* TO PROCESS THE KEY. */ 
7* OUTPUT: C - MATRIX CODE *7 
7 E - TERMINAL NUMBER */ 
7/%* CALLED BY: INTERRUPTSCONTROLLER *7 


7 MRR AAR RR RR AR KR RR ROR RR RRR RK OB OR OB OK COB ROK OR OR AR KONE O78 TK AK OR AR OR OR OR RR OK OR AR OR OR ORR OR RK KZ 
7* READ TERMINAL IDENTITY x*~ 
E=(A=INCCTERMINALSLATCH]) 3&2 903); 

7* WRITE TERMINAL NUMBER BACK OUT TO CAUSE x7 
“/* THE APPROPRIATE KEYBOARD DATA REGISTER */ 
7* TO BE SELECTED FOR READING. 7 
OUT( [ TERMINALSLATCH] )=A; 

“/* READ THE KEYBOARD MATRIX CODE */ 

C=(A=INCC MATRIXSLATCH] )) ; 

7%* PROCESS KEY */ 

CALL ( TERMS INPUTSCTRL] ; 

END TERMINALSHDLRA; 


INTERRUPTSCONTROLLER: 7x* MAIN ENTRY INTO INTMOD x~ 
/* SAVE CURRENT VALUE OF STACK POINTER AND x7 
/* ALL REGISTERS IN INTSSTACK <7 
SAVHL=HL; STACK=PSW; 

HL=2+SP; PSW=STACK; 
SP=.INTSSTACK((C TOP]) ; 
STACK=HL; 7”* PUSH CURRENT STACK PTR ¥*/7 
HL=SAVHL; 
STACK=HL; 7* PUSH ORIGINAL CONTENTS OF HL x*~ 
STACK=DE; STACK=BC; STACK=PSW; 
DO WHILE [ INTSPENDING]; 
H=(A=0); L=( A=C€ LEVEL]); 
DO CASE HL; 


7* @ *7 CALL DUMMYSHDLRA; 

7/* 1 */7 CALL CASSETTESHDLR; 
7* 2 */ CALL DUMMYSHDLA; 

7* 3 *7 CALL DUMMYSHDLR; 
7* & *7 CALL DUMMYSHDLR; 
7* $$ */7 CALL DUMMYSHDLRA; 
7* 6 */7 CALL PRINTERSHDLR; 
S* FF £7 CALL DUMMYSHDLA; 

7* 8 */7 CALL TIMERSHDLR; 

7* 9 *7 CALL DUMMYSHDLR; 

/* 10 *7 CALL TERMINALSHDLR; 





EOF 


*% 
xX 
7 
7 * 
7x 
S* 


END; 


16 


7 


*/7/ CALL 
*/ CALL 
*/ CALL 
*/ CALL 
*/ CALL 
*/ CALL 
CASE */ 


END; “* WHILE */ 
7* RESTORE ORIGINAL VALUE OF STACK POINTER 
7* ALL REGISTERS FROM INTSSTACK 

PSW=STACK; 
SAVHL=HL; HL=STACK; 
SP=HL; HL=SAVHL; 


BC=STACK; 


DUMMYsSHDLRA; 
DUMMYSHDLR; 
DUMMYSHDLR; 
DUMMYS HDLR; 
DUMMYSHDLR; 
DEBUGSHDLR; 


DE=STACK; HL=STACK; 


/* END INTERRUPTSCONTROLLER */ 


AND */ 
*7/ 





A RRA AR RAE A RRR RAE AE RAR ORE OR ARR eS AE AEE AE RE AS 8 IE HS IE AS I HE ER OK IR IE HE OR RE HS ROE HE IE OK OR / 


/* MONITOR MODULE */ 
A RRERR RRR RR RR RK RR EEE ERE EE IE HE EEK EK KE OKOKER KKK / 
* KS 
/* THE MONITOR MODULE CONTAINS THOSE FUNCTIONS OF MTS x*/ 
/* WHICH DEAL WITH PROCESSOR MANAGEMENT. SUCH FUNC- */ 
/* TIONS INCLUDE THE INITIAL PROGRAM LOAD, SYSTEM *K/ 
/* RECOVERY, SCHEDULING, CPU ALLOCATION, AND SWAPPING. *~/ 
/%* THE MODULE IS DIVIDED INTO THREE BASIC SUBMODULES. *-/ 
wae */ 
7* (1) UTILITY PROCEDURES */ 
7* THIS SUBMODULE CONTAINS GENERAL PURPOSE */ 
7 * UTILITY PROCEDURES WHICH PERFORM OPERATIONS */ 
7* FREQUENTLY REQUIRED IN THE MONITOR, INTERRUPT x*~7 
7% AND SERVICE MODULES. */ 
7 * INDEX * PUT KS 
7* * INDEX2 * GET */ 
/* * INDEX4 * MOVBUF */ 
7* * INDEXB * MINISDISK ea 
7 * READSPRTISBUF */ 
as 7 
/* (2) TASK MANAGEMENT */ 
1 * THIS SUBMODULE CONTAINS THE SCHEDULING, CPU */ 
wk ALLOCATION, AND SWAPPING PROCEDURES. IT ALSO *x*/ 
7* INCORPORATES THE MECHANISM FOR RECORDING THE *~7 
1% SYSTEM STATE BLOCK WHEN THE SYSTEM STATE */ 
1* CHANGES, THUS MAKING RECOVERY POSSIBLE. */ 
7* CONTROL PASSES TO THE TASK MANAGEMENT 7 
ik SUBMODULE AFTER MTS HAS BEEN INITIALIZED BY */ 
7 * THE IPL SUBMODULE. 7 
7*® * MONITOR * SWAP */ 
eS * BUMPSTASK * WRITESREC */ 
1* * BOOTSTRAP * RESUMESEXECUTION 7 
S* *K/ 
/* (€3) INITIAL PROGRAM LOAD *K/S 
/* THIS SUBMODULE CONTAINS ALL PROCEDURES WHICH ¥*/ 
7* DEAL WITH THE LOADING PROCESS AFTER THE MTS */ 
* OBJECT MODULE HAS BEEN LOADED INTO MEMORY BY *x~ 
7 * THE SYCOR SYSTEM LOADER. THE PRIMARY FUNCTION *7 
/#* OF THE IPL SUBMODULE IS SYSTEM INITIALIZATION x*7 
7% OR RECOVERY, AS REQUIRED. IN ORDER TO MINI- 7 
7 * MIZE THE MEMORY REQUIREMENT OF THE RES IDENT */ 
7 MTS CODE, THIS SUBMODULE WAS WRITTEN AS A 7. 
a # STANDALONE PROGRAM LOADED INTO THE USER SWAP */ 
7#* AREA. ONCE IPL IS COMPLETE THE PROGRAM MAY *K/ 
7 * BE OVERLAYED BY USER PROGRAMS. */ 
1 #* * ABORTSIPL * READSDI RECTORY */ 
7* * SEARCHSDIRECTORY * RECOVER */ 
7* * INITIALIZE * MTSSIPL *K/ 
7 * RECOVERSSTATUSSLINE */ 
A * */ 
/* THE MONITOR MODULE REQUIRES ACCESS TO SEVERAL ned 
/* FILES WHICH RESIDE ON THE MINI-DISK IN SYCOR */ 
7* FORMAT. THESE FILES AND THEIR FUNCTION ARE: */ 
7 * *K/ 
/* (1) .MTSSWPO,.MTSSWP1,.MTSSWP2, .MTSSWPS 1c / 
ee ASSOCIATED WITH EACH OF THE FOUR TERMINAL ee 
A* TASKS IS A FILE USED TO STORE A CORE IMAGE *K/ 
7 * OF THE TASK WHEN IT IS INACTIVE OR BLOCKED. */ 
7k THIS SWAP IMAGE CONSISTS CGF A SYSTEM AREA */ 
7k WHERE THE ENVIRONMENT AND VIRTUAL DEVICE */ 
7* CONTROL BLOCK IS STORED, AND A USER AREA */ 
“* CONTAINING THE USER PROGRAM’S MEMORY IMAGE. *K/ 
7* THE MAXIMUM SWAP IMAGE SIZE IS 48K BYTES. */ 
7* THEREFORE, EACH SWAP FILE SHOULD NORMALLY BE */ 
7 96 MINI-DISK SECTORS LONG. IN THE EVENT THAT *x/ 
7* MINI-DISK SPACE IS LIMITED AND THE ENTIRE 48K x*/7 
1x IS NOT REQUIRED FOR USER PROGRAMS. MTS WILL K/ 
1 * AUTOMATICALLY ADJUST TO ANY FILE SIZE GREATER */ 
* THAN 16K (32 SECTORS). THE FOLLOWING SYCOR */ 
7* COMMAND MAY BE USED T9 CREATE A SWAP FILE: */ 
7% CREATE <FILENAME> N=96 ere 


7 #* 


THE SYCOR SYSTEM DOES NOT ALLOW DYNAMIC 
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Es 
S* 
/* 
7* 
S* 
S*® 
/% 
S* 
7* 
/* 
S* 
/* 
VE. 
/* 
S* 
S* 
7* 
S# 
/%* 
S# 
/* 
fx 
S# 
/# 
7* 
7* 
7® 
7% 
7* 
Sk 
/* 
S# 
/* 
7 
S# 
7 
7 
7* 
US 
/*® 
7% 
1 
S# 
ce 
S# 
7*® 
/* 
7% 
1% 
S* 
S# 
S* 
S* 
S* 
S® 
/* 
S# 
S* 
S* 
S® 
“7% 
7® 


(2) 


(3) 


CHANGES IN FILE SIZE OR ATTRIBUTES; THUS, IN 
ORDER TO CHANGE THE FILE SIZE, THE FILE MUST 


FIRST BE DELETED (DELETE <FILENAME>) AND THEN 


RECREATED WITH THE DESIRED SIZE. IF SWAP 


FILES SMALLER THAN 48K ARE DESIRED, THE VALUE 


OF N IN THE CREATE COMMAND STRING SHOULD BE 
TWO TIMES THE REQUIRED PROGRAM SPACE IN 
KILOBYTES. 

THE FOUR SWAP FILES ARE ONLY REQUIRED WHEN 
MTS IS ACTUALLY RUNNING, OR BETWEEN RUNS IF 
RECOVERY WILL BE REQUESTED. 


» MTSCNFG 
THE VIRTUAL FLOPPY DISK CONFIGURATION FILE 


PROVIDES THE MAPPING BETWEEN THE VIRTUAL DISK 


NUMBER (6-31) AND THE NAME OF A SYCOR FILE 
WHICH CONTAINS A FLOPPY DISK IMAGE. THE CON- 
FIGURATION FILE ALSO CONTAINS THE PROTECTION 
ATTRIBUTES OF THE VIRTUAL DISKS. A 
PHYSICAL FLOPPY DISK HAS A FIXED CAPACITY OF 
256K BYTES, WHERE AN MTS VIRTUAL FLOPPY DISK 
MAY HAVE ANY CONVIENT SIZE UP TO 256K BYTES. 
THE SYSTEM ASSUMES THAT THE 
DISK IMAGE IS STORED SEQUENTIALLY ON THE 
MINI-DISK STARTING WITH TRACK © SECTOR 1 AND 
PROCEEDING THROUGH 26 SECTORS OF TRACK 9 TO 
TRACK 1 SECTOR 6, ETC. SPECIFYING A VIRTUAL 
DISK FILE SMALLER THAN 256K BYTES MEANS THAT 
FEWER THAN 7¢?? TRACKS WILL BE ADDRESSABLE. 
THE CONFIGRATION FILE CONTAINS 32 THIRTEEN 
BYTE RECORDS IN THE FOLLOWING FORMAT: 


0 CoG lee 
WHERE °FILENAME’® IS THE 0-68 BYTE NAME OF THE 
VIRTUAL DISK FILE AS IT APPEARS IN THE SYCOR 
DIRECTORY; ’KEY’ IS A 9-4 BYTE PROTECTION 
KEY; AND *P’ IS THE PROTECTION ATTRIBUTE OF 
THE DISK, I.E. ’°P* FOR READ/WRITE PROTECTION, 
"R’ FOR WRITE PROTECTION ONLY, AND BLANK FOR 
NO PROTECTION. 


THE CONFIGURATION FILE WILL BE UPDATED BY THE 


MTS SYSTEM COMMANDS PROTECT, UNPROTECT, AND 
RESTRICT. IN 
THE EVENT THAT .MISCNFG IS ERRONEOUSLY 
DELETED, THE FILE MAY BE RECREATED BY USING 
THE SYCOR COMMAMDS 

CREATE .MISCNFG N=1 

RUN BATCH 1=/7CSST 3=.MTSCNFG 
WITH THE CASSETTE LABELED ".MTSCNFG" 
MOUNTED ON THE CASSETT& DRIVE. 


- MTSRCVR 
THE RECOVERY FILE CONTAINS A COPY OF THE 
SYSTEM STATE BLOCK AS OF THE LAST SWAP. THE 
FILE IS ONLY REQUIRED WHEN MTS IS ACTUALLY 
RUNNING, OR BETWEEN RUNS IF RECOVERY WILL BE 
REQUESTED. THE FOLLOWING SYCOR COMMAND IS 
USED TO CREATE THE FILE: 

CREATE .MTSRCVR N=2 


K/ 
ee 
*7/ 
nS 
*/7 
*/ 
a 
*/ 
*/ 
eS 
*/ 
*/ 
* 7 
*f 
Kf 
ie 
*/ 
*/ 
*/ 
*7 
*/ 
*7 
* 
*7 
* 
*/ 
* 
Lf 
*/ 
* / 
*/ 
a 
* 7 
* 
*/ 
a 
KZ 
: 
*/ 
*/ 
*/ 
*Z 
KZ 
*/ 
*K7Z 
KS 
*/ 
*7/ 
* 
TZ 
7 
* 
*/ 
* 
re 
*/ 
re 
*/ 
a 
*/ 
*/ 


AS RRR RRB KBE ERE ER BOR AR BRB BB OBB RB EB OK OR AE IS AB OR OFS OI OIE IE AB OB OB IB IB 8 BR BR RB OB OB BB 7 
ZR ARR RRR RR OR RR OI ORR RR OR RR IRR ORS OR IR FR OI OB 2K OR OR 8 IR ROR OR SOR RR IE RR RR RB OK 8 OR AB OR BR OK 


IESE ESD SEPP ELE SEES SPS SE SS SS ES SSS Db SS ee SoS re ee 


SRRRERKKAKKERAK ERE TASK MANAGEMENT #888 RRKERRKRRRKERE 7 
SRA IR RAR EE AR RR AR ARR IR AA ARR RR I RRR AR OK IB OR 2 IE ORE OR RE OS IRS 2 IS IC AS OR ORR OB OR BK 7 
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SRRARKKKKKKKKKK INTERMODULE LINKAGE MACROS ****x***X**RHXK/S 


CINT TB M2B GBI] CTB:=1@00H] (M2B:=@600H] [CB:=90] 
CMACRO MCP ° 1A0@0H" } 

[MACRO MTS ° LFOOH’ ] 

C[MACRO INDEX °C HEX M2B + 3H]°) 

CMACRO INDEX2 *C HEX M2B + ODHI]’"} 

CMACRO INDEXS ’°CHEX M2B + 24H] °]) 

C(MACRO GET °C HEX M2B + 38H] °] 

(MACRO MINISDISK °CHEX M2B + 534H]°] 

[MACRO MISSMSG °CHEX TB + &37H)]'] 

CMACRO READSTERMINAL ‘°C HEX TB + 8DCH)°] 
[MACRO GETSTERMSSTATUS °CHEX TB + 2F9H)’]) 
[MACRO LOCK °M(C HEX GB + 3C54H])°] 

(MACRO TASKSTIMER ‘MCC HEX GB + 3C5S5H])°) 
[MACRO SYSSSTACKSTOP °C HEX GB + S3C6AH + 20]°] 
[MACRO TASKSADDR °C HEX GB + 3E80H)]’ ] 
CMACRO TASK ’M(CCTASKSADDR])’ ] 

(MACRO RECSFILE °*CHEX GB + 3E61H)'] 

{MACRO TCTSSTATUS ‘(HEX GB + 3E85H)’]) 
CMACRO TCTSDM ’°CHEX CB + 3E89H) °) 

(MACRO TCTSSIZE *C HEX GB + 3EA9H)]'] 

{MACRO TCTSBOE ’CHEX GB + S3EADH)’] 

[MACRO DMTSBOE ‘'(C HEX GB + 3EDDHI') 

CMACRO VDCSDRIVE °C HEX GB + 3FEDHI]°*] 
[MACRO SWAPSSTACK °C HEX GB + S3FF6H]'] 
[MACRO SWAPSSTACK! ‘MCC HEX GB + 3FF7H])°] 
7/* .MDBUF = 3C7EH USED IN WRITESREC */ 


SRRKRRKRKRRAKAKEKE GENERAL PURPOSE MACROS **®*KRRRRRRKRKRK, 


{INT MEMSBASE TOP TIMESLICE) 
(MEMSBASE:=4000H] ([CTIMESLICE:=4] [( TOP:=290] 
CMACRO READ °1°] 

[MACRO WRITE °2’°] 

[MACRO BUMP °-2"] 

{MACRO DISKSERROR °(A::0) !ZERO’] 

{MACRO HARDWARESERROR ’8’] 

CMACRO INPUTSWAITING °OFFH’ ] 

(MACRO IN ‘(C READ] °] 

[MACRO OUT ’({ WRITE] ’] 


AS RRERRKRRRREEKREEK MODULE DECLARATIONS 2226 K2RRCR RRR, 


DECLARE (MONITOR, BOOTSTRAP, RESUMESEXECUTION) LABEL; 
DECLARE CONTINUE LABEL; 

DECLARE DIR DATA (90); 

DECLARE SAVHL DATA (96,9); 

DECLARE I DATA (9); 

DECLARE TN DATA (9) ; 

DECLARE RSTSFLAG DATA (6); 


S RRR KR KK RIB RRRKKKEK PROCEDURES “46K KKK KKK KR RK KRKRE KK 


BUMPSTASK: PROCEDURE; 
AP RAR RHR HIE HR RR ER RE AR AR A OB OB OR ARR OE OE RR FS A 2S OR RB SR RE RO EEK / 
7* THIS PROCEDURE DELETES A TASK FROM THE SYSTEM WHEN */ 
7* AN IRRECOVERABLE MINI-DISK ERROR OCCURS. */ 
7* CALLED BY: SWAP, BCOTSTRAP */ 
A HARRAH RE HR RR EE BR AER ARR RR RR A ARR RR OR AE OE OR OE ERE OR RK / 

C=( BUMP); CALL [MTS]; 

E=( HARDWARESERROR] ; CALL [MISSMSG] ; 

END BUMPSTASK; 


SWAP: PROCEDURE; 


7 ARACEAE AR RR AR EA A OR AEE AE OS A RS IS IS OR OR FE OR ER IS IS OR AE IS IS OE IS OER IS OR IR OR OR IS OB SR OR OR RE / 
7* THIS PROCEDURE SWAPS A TERMINAL TASK BETWEEN MEMORY*~ 
7* AND THE APPROPRIATE MINI-DISK SWAP FILE. THE DIR- */ 
7* ECTION OF THE SWAP, I.E. IN OR OUT, IS DETERMINED */ 


7* BY THE VALUE OF THE VARIABLE DIR. THE */ 
7* PROCEDURE ALSO MODIFIES TCTSSTATUS TO REFLECT THE */ 
7* CURRENT LOCATION OF THE SWAP IMAGE.  / 





/* INPUT: DIR - DIRECTION OF SWAP */ 


S* 1 = IN */ 
A 2 = OUT */ 
7/* CALLED BY: MONITOR */ 


IES PETS SPSS SL SSL SSS SSS SSS LS SELL SL SSS OS SCS SES SSS SL Le eh oe ee 
7* SET I TO SWAP IMAGE SIZE x*/7 
DE=( TCTSSIZE); A=(€ TASK]; CALL ( INDEX]; 
I=( A= M( HL)? ; 
/* MODIFY TETSSTATUS */ 
HL=[ TCTSSTATUS] +BC; 
MC HL) =( A=MC HL) NN OCG) ; 
7* SET UP REGISTERS FOR DATA TRANSFER */ 
DE=( TCTSBOE]; A=(€ TASK]; CALL € INDEX2)]; CALL (GETI; 
DE=( VDC3DRIVE]; “* SWAP BASE */7 _ Aé=I; 
DO WHILE (A::90) !ZERO; 
L=(A=DIR); CALL (MINISDISK] ; 
IF CDISKSERROR] THEN 
DO; /7* BUMP TASK OFF SYSTEM */ 
CALL BUMPSTASK; 
IF (A=DIR; A::€ INJ]) ZERO GOTO MONITOR; 
RETURN; 
END; 
BC=BC+1; DE=( HL=200H+DE) ; 
I=(A=I-1); 
END; /x* WHILE */ 
END SWAP; 


WRITESREC: PROCEDURE; 
SRR RRR RRR ERK AR RK RR RRR RR ER RK RK EE AR RRR ER OR RRR RR EK OR RRR EK KE / 


7* THIS PROCEDURE COPIES THE CONTENTS OF THE SYSTEM #/ 


7* STATE BLOCK TO THE RECOVERY FILE. THE VARIABLE * / 
/* RECSFILE MUST BE SET TO THE FILE’S SECTOR ADDRESS ¥*/ 
7* BEFORE CALLING WRITESREC. */ 
7* CALLED BY: BOOTSTRAP, RESUMESEXECUTION */ 


eT TT ET SESE S LOSES SSS SSS SS SS SSS SS SPP Te Lee ST SSL SSeS ELS SS + 2 + oa 
HL=( RECSF ILE) ; 
DE=3CVEH; “* ADDRESS OF THE BASE OF SSB */ 
C=(A=M(HL)); HL=HLt1; B=( A=MC HL)); 
L=€ WRITE); CALL (€MINISDISK] ; 
IF CDISKSERROR] THEN 
DO; DISABLE; HALT; END; 
BC=BC+1; DE=( HL=200H+DE) ; 
L=( WRITE]; CALL (MINISDISK] ; 
IF [DISKSERROR) THEN 
DO; DISABLE; HALT; END; 
END WRITESREC; 


MONITOR: 
SERA RRR KK EKER KERR ERK RR RRR RE ER RR EE RB AR RRR ARR ORR OR ROR EEK / 
7* THIS ROUTINE IS THE TASK MANAGER OR SCHEDULER */ 


“7* WHICH CONTROLS THE ALLOCATION OF THE CPU TO COM- * / 
7* PETING TERMINAL TASKS. IT PERFORMS THIS FUNCTION */ 
7* BY SEQUENTIALLY SCANNING THE TCTSSTATUS BYTE */ 
7k ASSOCIATED WITH EACH TERMINAL LOOKING FOR A TASK */ 
7* REQUIRING THE CPU. THE EFFECT PRODUCED IS THAT */ 
/* OF A ROUND-ROBIN SCHEDULING ALGORITHM. WHILE THE */ 


7* MONITOR IS LOOPING, IT INITIATES SWAPPING AS */ 
7* REQUIRED. * / 
/* CALLED BY: MTSSIPL, TERMSBLOCK (SVC MOD), SWAP, */ 
7* TIMERSHDLR (INT MOD), BOOTSTRAP, QUIT (SVC MOD) * / 


S KR KRR RRR ERE R RK KREBS OR EB RE OK SRK ARK KEK / 
SP=(SYSSSTACKSTOP]; 7* SET STACK POINTER x*-7 
7* LOCK OUT SWAPPING */7 
[LOCK] =( A=[LOCK] N 81H); 
7* INITIALIZE RESTART FLAG */ 
RSTSFLAG=( A=0) ; 
7* INITIALIZE TEMP TASK COUNTER */ 
TN=(€ A=( TASK] ) ; 
LOOP: /* SEARCH FOR READY TASK */ 
TN=(A=TN+1, 803H); “~* INCREMENT TASK NUMBER */ 
7*® TEST FOR INACTIVE TASK */ 
DE=(€ TCTSSTATUS]; CALL C INDEX); A=MC HL) ; 
IF (€A::0) ZERO GOTO LOOP; 





7* TEST BIT ® —- BOOTSTRAP LOAD x*/ 
IF (A=>A) CY THEN 
DO; 
DE=C€ TCTSSTATUS]; A=( TASK]; CALL ( INDEX]; 
IF ¢(A=<MCHL)) CY 
8 (B=(A=TN); A=C€ TASKI-B) !ZERO THEN 
DO; DIR=(€ A=[OUT]); CALL SWAP; END; 
(C TASK] =(€ A=TN) ; 
GOTO BOOTSTRAP ; 
END; 
7* TEST BIT 1 - MCP x7 
IF (A=>A) CY THEN 
DO; 
A=( TASK); STACK=PSW; 7* SAVE OLD TASK NR x*~ 
(C TASK] =( A=TN); CALL (CMCP]; 
DE=( TCTSSTATUS]; A=TN; CALL ( INDEX]; 
MC HL)=(A=M( HL) 8 OFDH); 
“7* RESET BIT 1 *7 
PSW=STACK; [TASK] =A; 
7* RESTORE OLD TASK NR */ 
TN=(A=TN-1, &03H); GOTO LOOP; 
/* CONTINUE WITH TASK AFTER *7 


/* SYSTEM CALL PROCESSED 7 
END; 
7/* SKIP BIT 2 = NOT USED */ 
A=>A; 
7* SKIP BIT 3 - NOT USED *-7 
A=>A;3 
7* TEST BIT 4 - RST 7 x*/7 


IF ¢€A=>A) CY THEN 
DO; 
STACK=PSwW; 
RS TSFLAG= ( A= OFFS) ; 
/* RESET TCTSSTATUS BITS 4 AND 3S x*~7 
DE=( TCTSSTATUS]; A=TN; CALL [( INDEX]; 
MC HLI=( A=MC HL) & OCFH) ; 
PS W=STACK; 
A=>A; “* ADJUST ACCUMULATOR FOR NEXT TEST *~7 
GOTO CONTINUE; 
END; 
/* TEST BIT 3 - BLOCKED FOR TERMINAL I40 ¥*24 
IF (A=>A) CY THEN 


A=TN; CALL (CGETSTERMSSTATUS]) ; 
IF ¢A::C INPUTSWAITING]) ZERO THEN 
DO; ~* NO LONGER BLOCKED */7 
IF ¢(B=¢(A=TN); A=€TASKI-B) !ZERO THEN 
DO; ~* TASK, TN NOT EQUAL *Z 
DE=(€ TCTSSTATUS];: A=C€ TASK] ; 
CALL C INDESIJ; 
IF ¢(A=<MCHL)) CY THEN 
DO; 7* SWAP OUT OLD IMAGE */Z 
DIR=( A=(COUTI); 
CALL SWAP; 
END; 
7* SWAP IN NEW IMAGE */ 
C TASK] =( A=TND ; 
DIR=( A=C INI); CALL SWAP; 
END; 
CALL C READSTERMINAL]I ; 
[ SWAPSSTACKI]=A; 
/* RESET TCTSSTATUS BIT 3 *-7 
DE=C( TCTSSTATUS]; A=(€ TASK); CALL C INDEX); 
M( HL) =¢ A=M¢ HL) & ODFH) ; 
GOTO RESUMESEXRECUTION; 
END 
ELSE GOTO LOOP; 
END; 
CONTINUE: 
/*® TEST BIT 6 -— RESUME EXECUTION - FM DISK ¥/ 
IF (A=>A) CY THEN 
DO; 
DE=( TCTSSTATUS]; A=C€TASK]; CALL C INDEX] ; 


L1¢ 





IF (A=<MCHL)) CY THEN 
DO; DIR=CA=COUT]); CALL SWAP; END; 

{ TASK] =( A=TN) ; 

DIR=(A=CIN]); CALL SWAP; 

GOTO RESUMESEXECUTION; 

END; 
/* BIT 7 SET - RESUME EXECUTION - IN MEMORY xv 
GOTO RESUMESEXECUTION; 
7* END MONITOR x7 


BOOTSTRAP: 
A RRA RRA KAA ERA BRERA EK REE RE OR EK OR EE I AR OR KR IIE RE / 


7% 
7 
# 
C# 
7 


THIS ROUTINE EXAMINES THE DISK MAP FOR THE CURRENT x*/ 
TASK; DETERMINES THE VIRTUAL DISK ATTACHED TO DRIVE*/ 
A; LOADS THE FIRST 512 BYTES FROM THE DISK INTO */ 
MEMORY STARTING AT THE BASE OF THE USER SWAP AREA; */ 
AND THEN TRANSFERS CONTROL TO THE CODE JUST LOADED. *~ 


A RAR RAR RRR RRR OR RR ROB RR OR ROK RR ER OR RO OR OB OR OREO OR OR OK OR ER RR OE ROE OK OR OR OR OKO KOK OK KZ 


7* DETERMINE DISK NR ATTACHED TO DRIVE A x*~ 
DE={ TCTSDM]; A=C{TASK]; CALL [( INDEX8] ; 
A=M( HL) 8& 1FH;3 
7* DETERMINE BOE FOR DISK */7 
DE={ DMTSBOE]; CALL { INDEX2)]; CALL [GET]; 
7* READ FIRST SECTOR ON VIRTUAL DISK x*-7 
DE=( MEMSBASE]; L={ READ]; CALL ({MINISDISK] ; 
IF ([DISKSERROR] THEN 

DO; 7x BUMP TASK OFF SYSTEM *7 

CALL BUMPSTASK; 

CALL WRITESREC; 

GOTO MONITOR; 

END; 
7* UPDATE SYSTEM STATUS */7 
DE={ TCTSSTATUS]; A={TASK]; CALL [( INDEX] ; 
A=M( HL) \N 80H; 7’* SET BIT 7 */ 
MCHL)=(At=A 8 OFEH); /7* RESET BIT 98 x*/ 
CALL WRITESREC ; 
{ TASKSTIMER] =CA={ TIMESLICE]); 7* RESET TASKSTIMER */ 
CLOCK] =(A={LOCK] 8 @FEH); 7* UNLOCK SWAPPING *7 
SP=OFEFFH; 
GOTO { MEMSBASE] ; 
7* END BOOTSTRAP */ 


RESUMESEXECUT ION: 
A RRA HK RE ER RE RR EEK AEE OK RR ORB AB AR OR EE OR A ER AR OK BR OR EK OR ER OR KB OK / 


7A 
7% 


THIS ROUTINE TRANSFERS CONTROL BACK TO A USER TASK */Z 
WHICH HAS BEEN SWAPPED INTO MEMORY. */ 


A FRR RR RK RR OK ROR ROR ROK ROR ROK RK ROK RR OR ROR ROR AE AB RR BR RB OR ROR RR RR ORR TR RR OR TOR 


CALL WRITESREC; 
7* UPDATE SYSTEM STATUS */ 
{ TASKSTIMER] =( A={TIMESLICE]); 7“* RESET TASKSTIMER */ 
7* RESTORE ORIGINAL VALUE OF STACK POINTER *7 
7* AND ALL REGISTERS FROM SWAPSSTACK 7, 
SP=({ SWAPSSTACK) ; 
PSW=STACK; BC=STACK; DE=STACK; HL=STACK; 
SAVHL=HL; HL=STACK; 
SP=HL; /* RESTORE USER SP */ 
STACK=PSW; DISABLE; 
CLOCK] =(A=(€LOCK] 8&8 OFEH); 7%* UNLOCK SWAPPING x*/7 
HL=SAVHL; “* RESTORE USERS HAL */ 
IF (A=RSTSFLAG; A::OFFH) ZERO THEN 

DO; 7“* RST.?7 REQUESTED */ 

PSW=STACK; ENABLE; 

CALL 38H; “* RST 7 */4 

RETURN; 

END 
ELSE 

DO; /7* NORMAL RETURN */ 

PSW=STACK; ENABLE; 

RETURN; “* RETURNS TO INTERRUPT POINT */ 

7/* IN USER SWAP IMAGE */ 

END; 

7* END RESUMESEXSECUTION x*/ 





EOF 

J RAR ARR RI AR RR RR KK RK RAE KEK EK IK RR ROE OK OK OR OR IK OR EOE ER ER ROKK OR ISRO OK CK IE 
SP KRKKKAKKAKKEKKAKKK UTILITY PROCEDURES **®**®*®**KRRKKKKKKK/ 
ARR RK RRR ERIE OR RE ER AER FE OR AE RR OR RIE ORR RRR RR OR ORE ORK OK KOKORO / 


SRRRRKKAKKKKKKKKK INTERNAL MACROS **®KRKKKRKKKKKKKKKKKKEKS 
[MACRO ABNORMALSCOMPLETION °*OFFH’} 

(MACRO HARDWARESERROR ’°8’ ]) 

{MACRO MISSMSG ° 1837H’ ] 

CMACRO READ ‘1'] 

(MACRO PRTSSEC °3FE2H’] 


INDEX: PROCEDURE; 
A RAR ARK BARBER RR RR RE RRR RE REE ROR OR ER ER OR ERIE EER ROK RIEK 


7/* GIVEN THE BASE ADDRESS OF A BYTE VECTOR AND AN */ 
“/* INDEX VALUE, THIS PROCEDURE CALCULATES THE ADDRESS x*/ 
7* OF THE INDEXED ENTRY. */ 
“7* INPUT: A - INDEX VALUE (USUALLY TASK) 7 
7% DE - BASE ADDRESS OF VECTOR */ 
/* QUTPUT: BC - INDEX VALUE / 
0% DE ~- SAME AS INPUT */ 
1% HL - CALCULATED ADDRESS OF INDEXED ENTRY */ 
7* CALLED BY: SWAP, MONITOR, VALSDISK, CLEARSFLAG, */ 
1% ATTACH, LOGIN, QUIT, SIZE, TERMSBLOCK, *x*/ 
ax SELECTSDRIVE, RECOVERSSTATUSSLINE, 7 
wk PROTECT, RESTRICT, UNPROTECT 7 
A RRR RK RR KR RRR ROR AB RR RE OE KK RR ROR AE AR ORR OK IR EEK ERK ROOK ESHER / 

B=8; C=A; 

HL= BC+DE; 

END INDEX; 


INDEX2: PROCEDURE; 

A RRR RRR RRR BRI KR BR ERE BRR KBB AE OER RB AR OR OR OOK ROR OR OBER RK OR ER EZ 
7* GIVEN THE BASE ADDRESS OF AN ADDRESS VECTOR AND AN */ 
7* INDEX VALUE, THIS PROCEDURE CALCULATES THE ADDRESS */ 


/* OF THE LOW ORDER BYTE OF THE INDEXED ENTRY. */ 
“*® INPUT: A - INDEX VALUE (USUALLY TASK) */ 
f* DE ~ BASE ADDRESS OF VECTOR */ 
7* OUTPUT: BC ~ CALCULATED OFFSET = 2 * INDEX VALUE */ 
7% DE - SAME AS INPUT */ 
7x HL ~ CACULATED ADDRESS OF INDEXED ENTRY KS 
“7* CALLED BY: SWAP, BOOTSTRAP, SIZE, SELECTSDRIVE */ 


A RRR RH RK RK RRR KK OR RR OK OR OK OB OK RK OB OR OOK OR ORR OR RR ROR OR ERK OR RRR RK RRR KKK / 
B=0; C=(A=<<A); 
HL=BC+DE; 
END INDEX2; 


INDEX¢4: PROCEDURE; 
ARR RAK AAR HRA AR RE RB RR OE OK OR AK OR ER ORE OK ORK ACO OR 2K OK OR OR OK AE OK ORK ERK KZ 


7* INPUT: A - INDEX VALUE */ 
7k DE - BASE ADDRESS OF VECTOR */ 
7* OUTPUT: BC ~ CALCULATED OFFSET = ¢ * INDEX VALUE */ 
7 DE - SAME AS INPUT */ 
7% HL - CALCULATED ADDRESS OF INDEXED ENTRY *S 
7* CALLED BY: VALSKEY, UPDATESCNFGSFILE, PROTECT, */ 
o*® RESRTICT, UNPROTECT */ 


SP RRRRERERRR ER RRR RR KR RRR IK RR HR EER ER RR OR IER OB OE OR OR IR IE OR RR RR / 
B=0; €C=(A=<< CA=S< AD); 
HL=BC+DE; 
END INDEX4; 


INDEXB: PROCEDURE; 
A RARER RRR RR AE RE RB IRE RR KR OK OE KE ER A OR RR RAR OK OK OB EK OB OK OK ROK KB EZ 


7* INPUT: A - INDEX VALUE 7 
7k DE - BASE ADRESS OF VECTOR */ 
“* OUTPUT: BC - CALCULATED OFFSET = 8 * INDEX VALUE */ 
7* DE - SAME AS INPUT */ 
7% HL - CALCULATED ADDRESS OF INDEXED ENTRY */ 
7* CALLED BY: BOOTSTRAP, VALSDRIVE, CLEARSDM, ATTACH, */ 
7 SELECTSDRIVE, RECOVERSSTATUSSLINE, */ 
7* UPDATESCNFGSF ILE K/ 


A RRA RK ARE KR KR KK BO RR RE EK EK OK OK TIE IR OR OR OR OK OB ORO EB OE OR OR OB OR ARS OR OK RK OK 7 





B=@; C=(€ A=<< ( A=<< (A= < AD) ); 
HL=BC+DE; 
END INDEX8; 


PUT: PROCEDURE; 
SP RRR ARR RHR RE EER A EEE RAR RR AE RR TER RR AR ER ER ER OR EEE / 


“* STORE A TWO BYTE ADDRESS IN A SPECIFIED VECTOR. KL 
7* INPUT: DE - ADDRESS TO BE STORED */ 
ZH HL - BASE ADDRESS OF VECTOR */ 
/* OUTPUT: BC - UNCHANGED */ 
4% DE - SAME AS INPUT */ 
hae 3 HL - BASE ADDRESS + 1 */ 
/* GALLED BY: RECOVER, INITIALIZE */ 


A ERR RRR RE RR AR AR AR AR RE AR ARR OR KOR RRR EK RE OR RA IR ER OR ARE OB RE ER EE OR EEK / 
MC HL)=E; HL=HL+1; MC HL) =D; 
END PUT; 


GET: PROCEDURE; 
S RRR RAR RAR KARA RRR HR RE RE RR RR RR ARR RR AE IR ER EE ERE RE RK / 


7* FETCH A TWO BYTE ADDRESS FROM A SPECIFIED VECTOR. x/ 


/* INPUT: HL - BASE ADDRESS OF VECTOR */ 
7* OUTPUT: BC - ADDRESS FETCHED */ 
7% DE - ADDRESS FETCHED */ 
“x HL - BASE ADDRESS + 1 */ 
7* CALLED BY: SWAP, BOOTSTRAP, SIZE, SELECTSDRIVE */ 


SP RRR ARR RR RRR RR ER RR RRR RR RR RE ROR ROR RRR RR ROR EE RIE OK / 
E=MC HL); HL=HL+i; D=MC HL); BC=DE; 
END GET; 


MOVBUF: PROCEDURE; 
A ARR AE RE AR RRR ER ER IER ER ER ORR AK ROK OR ERE EK ER OR A OR ER OR OR OR ER REE / 


/* THIS IS A GENERAL PURPOSE UTILITY PROCEDURE WHICH */7 


7* MOVES A SPECIFIED NUMBER OF BYTES FROM A SOURCE */ 
/*# BUFFER TO A DESTINATION BUFFER. / 
/* INPUT: BC - NUMBER OF BYTES TO BE MOVED KS 
S#* DE - BASE ADDRESS OF SOURCE BUFFER 7% / 
SR HL - BASE ADDRESS OF DESTINATION BUFFER */ 
7* CALLED BY: MITSSIPL, ABORTSIPL, SEARCHSDIRECTORY, */ 
S*® LOGIN, READ@FLOPPY, WRITESFLOPPY, 7K / 
“x INITIALIZE, TIMERSHDLR (INT MOD) */ 
—MeTPSP ESE SSL SE SESS SESS SESS S PSE PE SS SE Pe PPS SS TESS SS SS SSS SS Se 
REPEAT; 


M( HL) =( A= MC DE) ); 

HL=HL+1; DE=DE*1; 
UNTIL (BC=BC-1; A=0; A::C) ZERO 8&8 (A::B) ZERO; 
END MOVBUF ; 


MINISDISK: PROCEDURE; 

ELSE LSS SSCS SSS SSS SSE SS SS tS SS ES eS StS ee St SSS SS et SS SS te Te 
“* THIS PROCEDURE TRANSFERS A SPECIFIED 512 BYTE */ 
7* BUFFER BETWEEN MEMORY AND THE MINI-DISK. THE DIR- */ 
7* ECTION OF THE TRANSFER IS INDICATED BY THE OP CODE. */ 
7* ERROR PROCESSING IS LIMITED TO CHECKING THE STATUS */ 
/* RETURNED BY THE MINI-DISK CONTROLLER FOR ’' NORMAL */ 
7* COMPLETION.* WHEN ANY OTHER STATUS IS RETURNED THE */ 
7* ROUTINE DISPLAYS THE MESSAGE * HARDWARE ERROR’ ON */ 


/* THE TERMINAL CURRENTLY ALLOCATED THE CPU AND 7 
/* ABORTS THE OPERATION. x/ 
/* INPUT: BC - MINI-DISK SECTOR NUMBER */ 
/* DE - DMA BUFFER BASE ADDRESS KS 
x L - OPERATION CODE: 2 Pd 
1 1 = READ */ 
7% 2 = WRITE 7 
7 3 = WRITE’ VERIFY a 
/* OUTPUT: A - RETURNS 90H IF COMPLETION NORMAL, 7 
es OTHERWISE RETURNS FFH KS 
L# BC - SAME AS INPUT *K/ 
aS DE - SAME AS INPUT */ 
/* CALLED BY: READSDIRECTORY, RECOVER, INITIALIZE, 7 
7 WRITESREC,SWAP, BOOTSTRAP, READSBUF, 77 
So WRITESBUF, READSPRTSBUF, WRITESPRTSBUF */ 


A ERR ARR RR ARR OE RK RRR EK EE EK KR AE EK RR RO OR AE AR OR OR OR RR RR ER RR AR RK / 
7* SET DCB CHECKSUM IN LOCN 4CH */7 


ic 
es 





M( 4CH) = ( A= ONNB, \NC, \ND, NVE, NAL) ; 
“* SET SECTOR NUMBER IN DISK CONTROL BLOCK x/ 
M( 45H) =( A=B); M( 44H) =(A=C) ; 
7* DEBUG - TO ENSURE SYCOR SYSTEM [S NEVER OVERWRITTEN */ 
STACK=HL; HL=0B7H; 
L=(A=L-C); H=(A=H-D) ; 
IF !CY THEN CALL 108; 
HL=STACK; 
7* SET DMA BUFFER ADDRESS IN DISK CONTROL BLOCK xv 
M( 43H) =(A=D); MC 42H) =CA=E) ; 
7* INITIATE OPERATION *~7 
M( 40D =( A=L); 
7* WAIT UNTIL OPERATION COMPLETE x-/ 
REPEAT; 
A=M( 41H) ; 
UNTIL ¢(A::9) !ZERO; 
7* TEST A FOR COMPLETION STATUS x*/ 
IF (MC 41H) =( A=A-1)) ZERO RETURN; 7x NORMAL COMPLETION x~ 
M( 41H) =( A=90) ; 
E= £ HARDWARESERROR] ; 
CALL (MTSSMSG] ; 
A=( ABNORMALSCOMPLETION] ; 
END MINISDISK; 


READSPRTSBUF: PROCEDURE; 
he SS Se DS Sy SS DS Se Se SS ee eS eS SS SS te eS eS SS eS PS SS bP SS tb SS SS oe Oe 
“/* THIS ROUTINE IS CALLED INITIALLY BY WRITESPRINTER xv 
7* IN ORDER TO FILL THE PRINT BUFFER WITH THE FIRST x~/ 
“* SECTOR OF THE MTSPRT FILE PRIOR TO OUTPUT OF THE xv 
7* FIRST CHARACTER TO THE PRINTER. SUBSEQUENT CALLS *7 
7* ARE MADE BY THE PRINTERSHDLR IN THE INTERRUPTS */ 
7* CONTROLLER UNTIL THE END OF FILE IS ENCOUNTERED *S 
7*#* CALLED BY: WRITESPRINTER, PRINTERSHDLR, RECOVER */ 
et > > > & + > bo > DS tt > > DS bb So > Se Db SS oS SS bo SS SSS Ste Se SS eS SS > + Oe 

HL=(PRTSSEC]; C=M(HL); HL=HLr1; 

B=M( HL); 7“* BC HAS CURRENT MISPRT SECTOR + x7 

DE=1600H; L=( READ]; 

CALL MINISDISK; 

BC=BC+1; HL=C€PRTSSEC]; 

MCHL)=C; HAL=HL+1; =MCHL)=B; 

END READSPRTSBUF ; 


EOF 

A RRR KR RRR RK RRR ERR RR EI EE RRR EK OK TK RR KE ORR IK OK RE KE OR EK K / 
SRRAKKKKRRAKAKKEKEK INITIAL PROGRAM LOAD *#*e*KRKHRAKKEKKAREK, 
Ve LTT L ESE SESS SELES SSL SSL SPSL ESP SS PtP PST S SPE PSSSL LS SPELLS + + Va 


SP KKRERKKKKKKKK INTERMODULE LINKAGE MACROS ********eRKKHK/ 


CINT MB M2B SB TB] 

(MB:=0300H] (M2B:=0600H] (SB:=1F00H] (TB: = 1000H] 
C(MACRO MONITOR °C HEX MB + OAAH]"] 

(MACRO MOVBUF 'CHEX MOB + 41HI]'] 

CMACRO PUT ‘C HEX M2B + 31H)’ ] 

CMACRO MINISDISK ‘CHEX M2B + 54H] °] 
(MACRO INDEX °C HEX M2B + 3H]'°] 

(MACRO INDEXS °C HEX M2B + 24H]'] 

CMACRO READSPRTSBUF ‘C HEX M2B + 9EH)'"] 
(MACRO MYS ‘'(C HEX SB + 9]’'] 

[MACRO MTISSMSG ‘(HEX TB + 837H]'] 

(MACRO CLEARSSTATUSSLINE ‘CHEX TB + S827]'] 
(MACRO TERMINALSSTATUS ‘CHEX TB + S8D2H)’] 
(MACRO READSTERMINAL ‘'C HEX TB + 8DCH]'] 
[MACRO WRITESTERMINAL ‘C HEX TB + 93CH]"] 
(MACRO SIZESMSG ‘'(C HEX TB + 864H]'"] 

C(MACRO STATUSSMSG °C HEX TB + 886CH)]'] 
CMACRO BUFSPTR '3C40H’ ] 

CMACRO TASK *3E80H”" J 

(MACRO RECSFILE °3E81H’ ] 

[MACRO TCTSSTATUS '3E85H’ ] 

(MACRO TCTSSIZE °*3EA9H’ ] 

(MACRO TCTSEOE '3EBSH’ ] 





{MACRO TCTSDM °*3E69H’ ] 
[MACRO CNFGSFILE °S3E8&3H’ ] 
[MACRO DMTSFLAG °SEBDH’ ] 
[MACRO DMTSBOE °*3EDDH’ ] 
(MACRO DMTSEOE ’3F1DH’ ] 
(MACRO DMTSKEY °3F5DH" ] 
CMACRO PRTSCNTRL °SFDDH’' ] 
[MACRO PRTSBOE ’3FDEH’ } 
[MACRO PRTSEOE ’3FEQ@H’ J 
[MACRO PRTSSEC °SFE2H’] 
(MACRO SYSSSTACK ’3C6AH’ ] 
7*x .MDBUF = 3C7EH — USED IN RECOVER */ 


SRRBRARRAKKKAERAE GENERAL PURPOSE MACROS **®®KKKKRKKKKAKKS 


CINT IPLSOFFSET] 
CIPLSOFFSET:=SSC?7H] 7* ADDR OF LABEL SHIFT + 1200H x*~ 


SKKKRERRKKKEKEREK MODULE DECLARATIONS **®*#KK*KRKRKKKKKKKK/ 


DECLARE (1,J) BYTE; 
DECLARE MAX(2) BYTE; 

7* ADDRESS OF LAST ENTRY + 1! IN DIRECTORY IMAGE x*/ 
DECLARE RECSNAME(9) BYTE INITIAL (°.MTSRCVRS'’ ) ; 


J BARRA AR KEK KEAKKK PROCEDURES #6 EKKKKRKAKERRAKAKKAAKKAKBKZ 


ABORTSIPL: PROCEDURE( MSG) ; 

A RRA RK RK RR RE KR KK KE EK KR EER KKB RR EK RE RK ROR OK RK EK ER EK / 
“/* WHENEVER A CONDITION OCCURS DURING THE IPL PROCESS */ 
“* WHICH PREVENTS NORMAL COMPLETION OF THE IPL THIS */ 


/* PROCEDURE IS CALLED TO TERMINATE EXECUTION AND 7 
7* DISPLAY AN ERROR MESSAGE AT TERMINAL @Q. 7 
/* INPUT: MSG —- BASE ADDRESS OF ERROR MESSAGE *K/ 
/% TERMINATED BY ‘3°’ ioe 
7* CALLED BY: READSDIRECTORY, INITIALIZE, RECOVER, 7, 


ee ee ek eR RK KR ARK RK RKKRRKRARRARERREEREERARKRAKR RRR ER BE 
DECLARE ABORTSMSG DATA (’ IPL ABORTED - '); 
7* DISPLAY ‘IPL ABORTED’ AT TERMINAL 9O *7 
BC=14; DE=.ABORTSMSG; HL=0799H; 
CALL {£ MOVBUF] ; 
HL=MSG; A=’S$’; 
DO C=0 BY C=C+1l WHILE (A::MCHL)) !ZERO; 
HL=HL+t 1; “/* COUNT CHARS IN MSG *7 
END; 
B=@; DE=( HL=MSG); HL=970EH; 
CALL ( MOVBUF) ; 7* DISPLAY MSG AT TERMINAL 9O *7 
DISABLE; HALT; 
END ABORTSIPL; 


READSDIRECTORY: PROCEDURE; 

SRR ARR K AK EE AE ER RK BRIER EK AB AR EK RR OR RR CR EK OK / 
“* DURING THE INITIALIZATION PROCESS IT IS NECESSARY */ 
“7* TO DETERMINE THE SECTOR NUMBERS OF SEVERAL SYSTEM *~ 
7* FILES WHICH RESIDE ON THE MINI-DISK IN SYCOR FORMAT. */ 
7* MULTIPLE DIRECTORY SEARCHES COULD LEAD TO REPEATEDLY*/ 


7* READING THE SAME BLOCK OF MINI-DISK SECTORS. TO */ 
“* ELIMINATE MOST OF THESE UNNECESSARY READ OPERATIONS */7 
/* THIS PROCEDURE READS THE ENTIRE sYCOR DIRECTORY */ 
7* INTO MEMORY AT ONE TIME, THUS REDUCING THE OVERHEAD */ 
/* INVOLVED IN MULTIPLE SEARCHES. */ 
“* CALLED BY: MTSSIPL / 


SRR KARR RK RRR RE RR RR RR RR RRR AB RK OR HB IS OK ER AR IE OB 8 OR OR IE OER OR OR OR KOR KK 7 
[INT SYCORSDIRSBASE] /7* SYCOR DIRECTORY BASE */ 
( SYCORSDIRSBASE:=20H] “* SECTOR NUMBER */ 
DECLARE READSMSG( 22) BYTE INITIAL (*°CANNOT READ DIRECTORYS’) ; 
7/* SET UP REGISTERS FOR DISK READ */Z 
BC=[ HEX SYCORSDIRSBASE) ; 
DE=5200H; 7* 5000H + 2O00H = DIRECTORY BASE ADDRESS */4 
/* READ NUMBER OF SECTORS INDICATED */ 
“/* IN DIRECTORY HEADER RECORD i 
REPEAT; 
L=l; /“* READ */ CALL [MINISDISK]; 





IF (A::@) !ZERO “* DISKERROR */ 

CALL ABORTSIPL( .READSMSG) ; 

DE=( HL=20@H+DE) ; BC=BC+I1; 
UNTIL (A=M(CS20AH); ~* DIR BASE + OAH */ A::C€) CY; 
“/* CALCULATE ADDRESS OF LAST ENTRY + 1 IN IMAGE x*-/ 
B={ HEX SYCORSDIRSBASE-11; 
A=A~-B; /7“* A = NR SECTORS IN DIRECTORY */ 
D=( A=< <A); 
E=9; /7* DE = NR SECTORS * 512 */7 
HL=S201H; “~* DIR BASE + 1 */ HL=HL+DE; 
MAX= HL; 
END READSDIRECTORY; 


SEARCHSDIRECTORY: PROCEDURE; 

A RAR RRR AR RR IRR AR REE RE EE AR ER EE EE OR EE TE AR IE AS AR AE OR IRI A CE OO AE EE RR EE EK / 
7* GIVEN THE BASE ADDRESS OF A VECTOR CONTAINING THE */ 
7* NAME OF A FILE IN SYCOR FORMAT, THIS ROUTINE WILL ¥*~ 


7* SEARCH THE DIRECTORY IMAGE READ INTO MEMORY BY */ 
7* READSDIRECTORY. IF THE FILE ENTRY IS FOUND, THE */ 
7* BOE AND EOE VALUES ARE RETURNED. */ 
7* INPUT: DE - BASE ADDRESS OF FILENAME VECTOR */ 
7* ASSUMED TO BE 86 BYTES LONG */ 
“* OUTPUT: BC - BOE OR FFFFH IF FILE NOT FOUND */ 
o® DE ~ EOE OR FFFFH IF FILE NOT FOUND */ 
7* CALLED BY: INITIALIZE, RECOVER */ 


ARKH EKER RRR RE RR ERR RR EEE REE ER ER EE ER RR A AR IE AEE OR EK EE OR EE 
DECLARE LOOP LABEL: 
/* MOVE FILENAME TO LAST ENTRY + 1 */2 
BC=8; HL=MAX; CALL [ MOVBUF] ; 
DE=5241H; /’”* DIR BASE + 41H - ADDRESS OF FIRST ENTRY */ 
LOOP: /“* ADVANCE TO NEXT ENTRY °*/ 
STACK=DE; HL=MAX; B=8; 
REPEAT; /“* COMPARE CHAR BY CHAR */ 
IF (A=MCDE); A::MCHL)) ZERO 
\N CIF (A4::0) ZERO 8 (€A=M(HL)-20H) ZERO 
THEN CY=1 ELSE CY=9) CY 
THEN /* CHAR MATCH */ 
DO; 
DE=DE+1; HL=HL+1; 
END 
ELSE /* NON-MATCH x*/ 
DO; DE=STACK; 
DE= ( HL=40H+DE) ; 
GOTO LOOP; 
END; 
UNTIL (B=B-1) ZERO; 
SP=(HL=2+SP)}; /“* CLEAR STACK */ 
/* FALLING THRU LOOP MEANS NAMES MATCH, 7 
/* MUST TEST FOR SUCCESS OR FAILURE OF SEARCH */ 
IF (A=MAX( 1); A::D) CY /¢* K:: Y=CY => AY *7 
\CIF ZERO 8 (A=MAX(9); A::E) CY THEN CY=1 ELSE CY=9®@) 
CY THEN 
DO; -* SEARCH FAILED #*/ 
BC=OFFFFH; DE=BC; 


END 
ELSE DO; /“* SEARCH SUCCESSFUL */ 
HL=3+DE; 


C=M( HL); HL=HL+1; 
B=M( HL); HL=HLt+i; 
E=M( HL); HL=HL+1; 


RECOVERSSTATUSSLINE: PROCEDURE; 

A RRR ER ER RE AR EAR RR OE AR OR AR ROR OR AR OR ER AE OK OB AR AR OR AR OR AR AR FE AB OR ARR RB BRR RE EZ 
7* ROUTINE TO BUILD AND DISPLAY THE STATUS LINE WHEN */ 
7% A RECOVERY IS PERFORMED. THIS ROUTINE DISPLAYS ALL */ 


7* ACTIVE DRIVES AND ASSOCIATED DISKS AND DISPLAYS */S 
“/* SWAP IMAGE SIZE FOR EACH TASK. */ 
7/* CALLED BY: RECOVER 7 


ARR RR RR RRR EER RR EAR OK OB AB RE CB EE AR OK OR OE OB OR AR ASR OR OR OR OR AE OR ISR OB ARR ASK“ 
DECLARE SAVESTASK BYTE; 





HL={ TASK] ; 


SAVESTASK=( A=M(HL)); “* SAVE CURRENT TASK NUMBER */ 


1=( A=9) ; /# INITIALIZE TASK COUNTER *7 
7* CHECK TCTSSTATUS FOR ACTIVE TASK */ 
REPEAT; “* FOR ALL ¢ TASKS x7 
DE={ TCTSSTATUS]; CALL [ INDEX]; 
IF (A=MCBL); A::0) !'ZERO THEN /7* TASK ACTIVE 
DO; 


KZ 


HL=£ TASK]; MCHL)=( A=I); 7“* SET TASK NUMBER */ 


DE=( TCTSDM] ; CALL [ INDEXS] ; 
J=(A=0); 7* INITIALIZE DRIVE COUNTER *~7 
REPEAT; “* FOR ALL & DRIVES *7 
IF (A=<MCHL)) CY THEN 
DO; 7* DRIVE IN USE */7 
B=(A=J); C=C A=MC HL) 8&8 1FH); 
IF (A=MC HL) & 49H) !ZERO 
THEN A=72H ELSE A=" ’; 
STACK= HL; 


7* DISPLAY ACTIVE DRIVE AND DISK *7 


CALL [STATUSSMSG1; 
HL=STACK; 
END; 
UNTIL CHL=HAL+1; J=C(A=J+1); A::8) ZERO; 
“* DISPLAY SIZE MESSAGE *7 
DE=({ TCTSSIZE]; A=I; CALL [ INDEX]; 
CY=@; A=>M( HL); CALL [SIZESMSG]1; 
END; 
UNTIL CI=CA=I+1)3; Atit4) ZERO; 
7* RESTORE CURRENT TASK NUMBER *7 
HL=( TASK]; M(HL)=( A=SAVESTASK) ; 
END RECOVERSSTATUSSLINE; 


RECOVER: PROCEDURE; 
SRR RAE RR AR RRR RR RRR ORR OR ROR OR OR ORR OR OR OR IRB OR RB OR OR AR OR ROR EE ER ERE OR ERK Z 


aS 
7 
A 
7 
S# 
S* 
7S * 
7 
7 * 
aS 
* 
S* 
7 * 
7 


MTS HAS BEEN DESIGNED SO THAT THE SYSTEM STATE AT 
ANY INSTANT IS DEFINED BY A COMPACT, CONTIGUOUS 
GROUP OF BYTES KNOWN AS THE SYSTEM STATE BLOCK. 
EACH TIME THAT SWAPPING O€CURS THE SSB IS WRITTEN 
TO THE MINI-DISK FILE .MITSRCVR. IF THE TASK JUST 
SWAPPED IN CAUSES A SYSTEM CRASH, RECOVERY IS 
ACCOMPLISHED BY REBOOTING MTS AND ANSWERING ‘Y’ TO 
THE RECOVERY QUERY. MTS WILL READ .NTSRCVR BACK 
INTO THE SSB, DELETE THE OFFENDING TASK, AND 
CONTINUE WITH THE NEXT READY TASK. 
NOTE: THIS PROCEDURE USES THE FACT THAT THE BOE 
AND EOE VALUES RETURNED BY SEARCHSDIRECTORY 
ARE EQUAL FOR A SINGLE-SECTOR FILE. 
CALLED BY: MYSSIPL 


i 
7 
KS 
re 
7 
*7 
KS 
*/ 
*/ 
*/ 
*/ 
a7 
* 7 
*/ 


A RRR RRR BRR KK RR BR ROK RR RRR BR RB ORR OR KK OK RR KR EK BRR RK KB RR OR RK EK 


7/* FIND MINI-DISK SECTOR ADDRESS OF .MYTSRCVR x*/7 
DE= . RECSNAME; 
CALL SEARCHSDIRECTORY; 
IF (A=B; A::@OFFH) ZERO CALL ABORTSIPL(.RECSNAME) ; 
7/* READ .MTSRCVR INTO SSB */ 
DE=BC; /“* MOVE BOE TO DE */ 
HU={ RECSFILE]; CALL CPUTI; 
DE=3C7ERH; /* ADDRESS OF SSB - .MDBUF */7 
DISABLE; 
I=(A=90); 
REPEAT; 
L=1; /* READ x«*/ CALL [(MINISDISKI]; 
IF (A::®) !'ZERO 7x DISK ERROR *7 
CALL ABORTSIPL( .RECSNAME) ; 
BC=BCt+i; DE=( HL=200H+DE) ; 
UNTIL (C1=( A=I+1); A::2) ZERO; 
IF (A=MCC PRTSCNTRL1); A=<A; A=<SA) CY THEN 
DO; “* COMPLETE PRINTING TASK */ 
HL={PRTSSEC]; DE=(€PRTISBOE] ; 
MC HL)=( A=M(DE)); HL=HLt+1; DE=DEr!1; 
M( HL) =( A= MC DE) ) ; 
/* SET BUFFER PTR TO 100H~ */ 
HL={ BUFSPTR1; MC HL)=0; HL=HLt+I1; 
M( BLJ=1; 





CALL ( READSPRTSBUFI; 
OUT( SAH) =( A=@) ; 
END; 
ENABLE; 
/* DELETE TASK CAUSING CRASH */ 
C=-2; /“* BUMP */ 
CALL (MTIS]; 
E=9; /* TASK DELETED */ 
CALL (MTSSMSGI] ; 
CALL RECOVERSSTATUSSLINE; 
END RECOVER; 


INITIALIZE: PROCEDURE; 

PKR EHR IE ER HK EE ERIK KB EK EEK EEE EEE EE EE IEE SIE EC HEI EEC HEE / 
7* THE SYSTEM STATE BLOCK CONSISTS OF THREE SETS OF */ 
7* VARIABLES: SYSTEM CONTROL, TASK CONTROL TABLE, AND */ 
7* THE DISK MAP TABLE. THE OBJECT MODULE GENERATED BY *~ 


/* THE ML8&6@ COMPILER CONTAINS INITIAL VALUES FOR */ 
7* SYSTEM CONTROL VARIABLES AND MOST OF THE TCT. IN > / 
“7* ORDER TO INITIALIZE THE REST OF THE TCT IT IS */ 
7* NECESSARY TO SEARCH THE SYCOR DIRECTORY IMAGE */ 


7* COPIED INTO MEMORY BY READSDIRECTORY FOR BOE AND * / 
7* EOE VALUES FOR THE RECOVERY FILE AND ALL FOUR SWAP *-/ 
7* FILES. TO INITIALIZE THE DMT THE VIRTUAL DISK */ 
7* CONFIGURATION FILE, .MTSCNFG, MUST BE READ INTO */ 
/* MEMORY AND BOE AND EOE VALUES FOR THE VIRTUAL DISK */7 


7* FILES EXTRACTED FROM THE SYCOR DIRECTORY IMAGE. *K/ 
/* THE PROTECTION ATTRIBUTES FOR EACH VIRTUAL DISK * / 
7* ARE ALSO COPIED INTO THE DMT FROM .MTSCNFG. */ 
7* NOTE: THIS PROCEDURE USES THE FACT THAT THE BOE */ 
1 AND EOE VALUES RETURNED BY SEARCHSDIRECTORY */ 
7 ARE EQUAL FOR A SINGLE-SECTOR FILE. *K/ 
7* CALLED BY: MTS®IPL */ 


SRR RH RRR KK RHR KE EER ER EE EEE EEE OK EEE SEE HEE SEE EK EEE SEE EEK / 
DECLARE ENTRYSBASE(2) BYTE; 
DECLARE CNFGSNAME(9) BYTE INITIAL (’°.MTSCNFGS') ; 
DECLARE SWAPSNAME(9) BYTE INITIAL (°.MTSSWPOS'); 
DECLARE SYSDISK(9) BYTE INITIAL (‘SYS DISKS'°); 
DECLARE PRTSFILESNAME(9) BYTE INITIAL (°.MTSPRT 8°); 
/* SET UP RECOVERY FILE */ 
DE=.RECSNAMNE; CALL SEARCHSDIRECTORY; 
IF (A=B; A::0FFH) ZERO CALL ABORTSIPL(.RECSNAME) ; 
E=( A=E-C@) ; 
IF (E=E-1) !ZERO THEN CALL ABORTSIPL(.RECSNAME) ; 
DE=BC; “* SET UP TO STORE BOE *-/ 
HL=C RECSFILE]; CALL [PUT]; 
/* SET UP TASK CONTROL BLOCK IN SSB */ 
I=¢€A=4); STACK=( HL=( TCTSEOE]) ; 
REPEAT; 
DE=.SWAPSNAME; CALL SEARCHSDIRECTORY; 
IF (A=B; A::9FFH) ZERO 
CALL ABORTSIPL( .SWAPSNAME) ; 
/*® CHECK THAT SWAP FILE AT LEAST 16K */7 
L=(A=!C,+1); H=( A=!B,++9) ; 
HL= HL+DE; 
IF (A=L; A::31) CY CALL ABORTSIPL( .SWAPSNAMBE) ; 
HL=STACK; CALL ( PUT]: 
DE=BC; BC=-9; 
HL=HL+BC; CALL (CPUTI]; 
BC=9; STACK=( HL=HAL+BC) ; 
SWAPSNAME( 7) = ( A7>SWAPSNAME( 7) +1) ; 
UNTIL (I=( A=I-1)) ZERO; 
SP=(HL=2+SP); /* CLEAR STACK */ 
DE=.PRTSFILESNAME; CALL SEARCHSDIRECTORY; 
IF (A=B; A::@FFH) ZERO CALL ABORTSIPL( .PRTSF ILESNAMBE? ; 
HL={ PRTSEOE]; « CALL [PUT]; 
DE=BC; HL=(PRTSBOE]; CALL ( PUT]; 
7* SET UP DISK MAP TABLE IN SSB */ 
DE=.CNFGSNAME; CALL SEARCHSDIRECTORY; 
IF (A=B; A::@FFH) ZERO CALL ABORTSIPL( .CNFGSNAME) ; 
HL=(CNFGSFILE]; CALL ( PUT]; 
/7* READ CONFIGURATION FILE INTO MEMORY */ 
DE=5@000H; 7“* ADDRESS FOR BASE OF MEMORY */ 





L=1; /* READ */ CALL [CMINISDISK): 
IF (A::@) "ZERO ~* DISK ERROR x*- 
CALL ABORTSIPL( .CNFGSNAME) ; 
HL=500060H; 7* MEMORY BASE ADDRESS */ 
IF (A=MCHL); A::2EH) !ZERO THEN 
DO; /* FIRST BYTE OF .MTSCNFG NOT ’.’ x*,/ 


7* ELIMINATE SYCOR OVERHEAD FROM .MTSCNFG x*~ 


7* SYCOR OVERHEAD (OH) OF THE FORM: x*-/ 


7* 2 BYTES OH, 100H BYTES DATA */ 
7* 4 BYTES OH, @AOH BYTES DATA */ 
DE=35902H; 7* ADDRESS OF SOURCE */ 


BC=100H; “* NUMBER OF BYTES TO BE MOVED xv 
CALL [ MOVBUF] ; 
DE=35106H; /7”* ADDRESS OF SOURCE *-/ 
HL=5 100H; 7* ADDRESS OF DESTINATION x*-7 
BC=@AQOH; /“* NUMBER OF BYTES TO BE MOVED xv 
CALL [ MOVBUF] ; 
7* UPDATE CONFIGURATION FILE x/ 
DE=5000H; HL=(CNFGSFILE); 
C=M( HL); HL=HL+1; B=MC HL); 
L=2; “* WRITE */ CALL [(MINISDISK] ; 
IF €A::@) !ZERO /7* DISK ERROR x*v 
CALL ABORTSIPL( .CNFGSNAME) ; 
END; 
I=(A=60); ENTRYSBASE=( HL=( DE=549@H) ) ; 
REPEAT; /7%* STEP THRU CONFIGURATION FILE x*/ 
CALL SEARCHSDIRECTORY; 
IF (A=B; A::O@FFH) !ZERO THEN 
DO; 7* VIRTUAL DISK C(I) EXISTS xv 
STACK=BC; B=@; C=(A=<<I); 
HL=€ DMTSEOE]+BC; CALL [PUT]; 
DE=STACK; HL=( DMTSBOE]+BC; CALL [PUT]; 
BC=8; DE=( HL= ENTRYSBASE+BC) ; 
B=0; C=(A=<< CARzC< ID); 
HL={ DMTSKEY1+EC; 
DO B=0 BY B=Bti WHILE (A=B-4+) !ZERO; 
MC HL) =( A> MCDE)); 
DE=DE+1; HL=HL+1; 
ND: 
B=0; C=¢€A=I); 
HL=(€ DMTSFLAG]+BC; 
IF (A=MC DE); A::(B=’R’)) ZERO THEN 
MC HL) =@DH 
ELSE DO; 
IF (A::(B=’P’)) ZERO THEN MC HL) =05H 
ELSE M( HL) =601H; 
END; 
END; 
DE= ( HL= ENTRYSBASE+( BC= 13)); 
ENTRYS BAS E= HL; 
UNTIL ( I=(A=I+1); A?:32) ZERO; 
/* CHECK THAT DISK 0 EXISTS */ 
HL=({ DMT@®FLAG] ; 


IF (A=MCHL) & 01) ZERO CALL ABORTSIPL( .SYSDISK) ; 


END INITIALIZE; 


MTSSIPL: 
A RRR RR AA RE RE RRR ERR BR RIE KK RRR OK RE ROR KK RK KK RR EK ROR RE RRR ERK / 


a 
a 
7 
7* 
7 * 
4% 
7 #* 
7 * 
7H 
7 * 
/* 
L# 
7 * 
7% 
7* 


THIS ROUTINE IS THE INITIAL ENTRY POINT INTO MTS. 
THE SYCOR 4460 LOADER TRANSFERS CONTROL HERE AFTER 
THE SYSTEM OBJECT MODULE HAS BEEN LOADED. IF THE 
SYSTEM LOADER LOADS MTS THE LOAD MODULE IS DIS- 
PLACED BY 1200H SO THIS ROUTINE MOVES MTS TO 
ABSOLUTE LOCATION ZERO THEN TRANSFERS CONTROL TO 
THE MOVED MTSSIPL ROUTINE. DURING 

IPL ALL PERIPHERAL DEVICES ARE RESET, THEN MTS 
READS THE SYCOR DIRECTORY INTO MEMORY, AND ASKS 
THE OPERATOR AT TERMINAL © WHETHER RECOVERY IS 
REQUIRED. IF THE ANSWER IS ‘Y’ THEN THE PROCEDURE 
RECOVER IS CALLED TO READ THE FILE .MTSRCVR INTO 
THE SYSTEM STATE BLOCK. OTHERWISE THE PROCEDURE 
INITIALIZE IS CALLED TO BUILD AN SSB FROM INFOR- 
MATION CONTAINED IN THE SYCOR DIRECTORY IMAGE AND 
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ce 
*K/ 
*/ 
ae 
*/ 
i 
*/ 
* 
*/ 
*K/ 
a 
* 7 
* 
K / 
ae 





/* THE FILE .MYSCNFG. ONCE IPL IS COMPLETE CONTROL IS ¥*/ 
/%* TRANSFERRED TQ THE PROCESSOR MANAGEMENT SUBMODULE */ 
7* WHICH WILL CONTROL ALL SUBSEQUENT PROCESSING. */ 
7* CALLED BY: SYCOR SYSTEM LOADER 7 
A RRRRRERRERERRRER ERR KEK KR KR RRR RR RRR RRR ERE ROR ERR RR ERE EK / 

DECLARE (WAIT, TEST, CLEAR, SHIFT) LABEL; 

DECLARE IPLSMSG( 15) BYTE INITIAL (* RECOVERY? (Y/N)’); 

/* SET STACK POINTER «7 

DE=20; 7x INDEX TO TOP OF SYSSSTACK */ 

SP=( HL=(SYSSSTACK] + DE); 

/7* CLEAR PERIPHERAL INTERRUPTS *7 

OUT( 2) =(A=1); “* DISABLE TIMER x/ 

OUT( 85H) =( A=10H); 7“* CLEAR CSST INTERUPT *~7 

A=INC( SAH); “* CLEAR PRINTER INTERUPT x*/ 

7* IF DEBUGGER IS USED TO LOAD THE SYSTEM*~ 

“7* SKIP THE MOVE, OTHERWISE RELOCATE MTS *-7 

7* LOADSSWITCH EQUALS ® FOR DISK LOAD */ 

/* AND OFFH FOR DEBUGGER LOAD IBA 

IF (A=OFFH; A::0 ~“* LOADSSWITCH */ ) ZERO GOTO CLEAR; 

HL=9000H; DE=1200H; BC=4600H; 7* MTS SIZE - 4600H x-7 

SHIFT: 

MC HL) =( A= MC DE) ) ; 
HL=HL+1; DE=DE+1; 

IF ¢(BC=BC-1; A=0; A::€C) !ZERO GOTO (HEX IPLSOFFSET]; 

IF (A::B) !ZERO GOTO [HEX IPLSOFFSET]; 

/* JUMP IS MADE TO SHIFT ADDR + 1200H x*/ 

7* WHILE MTS [tS TRANSFERRED */ 


GOTO CLEAR; 
CLEAR: 
/* CLEAR STATUS LINE ON ALL TERMINALS */ 
DO I=(A=90) BY I=(A=I+1) WHILE (A=I; A: :4) !ZERO; 
CALL [CLEARSSTATUSSLINE!?; 
END; 
/*#* READ SYCOR DIRECTORY INTO MEMORY *7 
CALL READSDIRECTORY; 
7* DISPLAY IPLSMSG AT TERMINAL 0 */7 
BC=15; DE=.IPLSMSG; HL=9700H; 
CALL ( MOVBUF] ; 
7/* ENABLE INTERRUPTS SO TERMINAL MODULE MAY */ 
7* BE USED TO PROCESS REPLY TO IPLSMSG i 
ENABLE; 
OUT( 2) =(A=9); 7“* RESET TIMER */ 
7* PROCESS OPERATOR’S REPLY */ 
WAIT: REPEAT; 
CALL [ TERMINALSSTATUS] ; 
UNTIL (A::@) !ZERO; 
CALL [{ READSTERMINALJI ; 
I=A;3 
IF (A::@DH) ZERO GOTO TEST; 
REPEAT; 
CALL {( READSTERMINAL] ; 
UNTIL (A::@DH) ZERO; 
TEST: 
IF (A=I; A::(B=’Y’)) ZERO 
\ (A: :(B=79H)) ZERO 


A=®; CALL ( CLEARSSTATUSSLINE}] ; 
CALL RECOVER; 


IF (A: :(B=’N’)) !ZERO 
8&8 (A::(B=6EH)) !ZERO 


DO; E=’?'; 
CALL ( WRITESTERMINAL] ; 
GOTO WAIT; 
END 
ELSE 
DO; 
A=0; CALL (CLEARSSTATUSSLINE]I ; 
CALL INITIALIZE; 
END; 


Fe 





ae END; 
GOTO [MONITOR ; 
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A RAR RAR RAE ARR BR AR OR AR RR RB OR 8 OB RAB OR OE AB AR IR ROR AS OR AB IB BE AS IR OK IR SR RR OR IRE ROK OR EE 


7# 


SERVICE MODULE 


re 
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THIS MODULE 


USER AND ALL SYSTEM SERVICES. 


PROVIDES THE INTERFACE BETWEEN THE 
THESE SERVICES FALL 


GENERALLY INTO TWO CATEGORIES: 


(1) SYSTEM CALLS - 


THOSE FUNCTIONS REQUIRED TO 


ESTABLISH THE DESIRED VIRTUAL MACHINE 
ENVIRONMENT. 


(2) 


SERVICE CALLS - 


VIRTUAL MACHINE ENVIRONMENT. 


SYNTACTICALLY THE TWO TYPES OF PROCEDURE CALL ARE 
IDENTICAL, 


USER’S MANUAL. 


I.E. 
VALUE 
EACH CALL TAKES TWO 


MTSCFID,PARM. 


RETURNED VALUES. 


NAME PARM 
a Sisi2) CALLS =------- 
ATTACH LIST 
DISPLAYSMSG ERROR 
LOGIN List 
PROTECT LIST 
QUIT NONE 
RESTRICT LIST 
SIZE SIZE 
UNPROTECT LIST 
Sinv ler sGaLLs (------=- 
TERMINALSSTATUS NONE 
READSTERMI NAL NONE 
WRITESTERMINAL CHARACTER 
WRI TESPRINTER CHARACTER 
SELECTSDRIVE DRIVE NR 
SETSDMA DMA ADDRESS 
SETSTRACK TRACK NR 
SETSSECTOR SECTOR NR 
READSFLOPP Y NONE 
WRITESFLOPPY NONE 


IN THIS TABLE THE ENTRY ’LIST’ 
THAT THE ACTUAL ARGUMENT IS THE ADDRESS OF A LIST 
APPEARS UNDER 


OF REQUIRED PARAMETERS. WHEN ' NONE’ 


THE SAME HEADING, 
IS NOT REQUIRED. IF 
ERROR CODE RETURNED IS 
INDICATES THAT AN ERROR CODE IS RETURNED. 


* ERROR’ 


THESE CODES ARE DEFINED AS 


CODE 


ONDA be & 


NONE’ 
ALWAYS ZERO. 


FOLLOWS: 


THOSE FUNCTIONS REQUIRED TO 
ACCESS THE VIRTUAL DEVICES PROVIDED BY THE 


ARGUMENTS, FID IN REGISTER C 
AND PARM IN REGISTERS DE; AND RETURNS A VALUE 

IN THE A REGISTER. THE FORM OF THE ARGUMENTS AND 
THE SIDE EFFECTS ASSOCIATED 
FUNCTION ARE DISCUSSED IN MORE DETAIL IN THE MTS 
NOTE HOWEVER THAT THE ARGUMENT REG- 
ISTER ASSIGNMENTS CONFORM TO THE PL’M CONVENTION 
FOR PASSING PARAMETERS. THE FOLLOWING TABLE SUM 
MARIZES THE ARGUMENT OPTIONS AND CORRESPONDING 


WITH EACH DIFFERENT 


IT MEANS THAT THE PARM ARGUMENT 
APPEARS UNDER VALUE THE 
THE ENTRY 


OPERATION SUCCESSFUL 


INVALID COMMAND 


DISK NOT AVAILABLE 


DISK IN USE 


DISK NUMBER ERROR 


KEY ERROR 


DRIVE LETTER ERROR 
PRINTER NOT READY 


HARDWARE ERROR 
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7% 9 TASK DELETED *K/ 


S* 19 DRIVE NOT AVAILABLE */ 
1% 11 PRINTER IN USE */S 
* 12 OUT OF BOUNDS 7 
eS */ 
/* THE SERVICE MODULE IS DIVIDED INTO THREE BASIC */ 
/* SUBMODULES: */ 
mk i 
/* €1) USER INTERFACE */ 
1% THIS SUBMODULE CONTAINS THE ENTRY POINT INTO xv 
# THE SERVICE MODULE FROM MCP AND USER PRO- */ 
Vee GRAMS. IT IS HERE THAT THE SERVICE REQUEST = Ps 
ok IS INTERPRETED AND THE APPROPRIATE SERVICE */ 
Sk ROUTINE CALLED FOR EXECUTION. */ 
A +7 
“* (€2) SYSTEM CALLS */ 
1% THIS SUBMODULE CONTAINS THE SERVICE ROUTINES’ <x/ 
7#* AND SUPPORTING PROCEDURES WHICH CREATE OR */ 
S* MODIFY THE USER’S VIRTUAL ENVIRONMENT. aod 
Vee THESE ROUTINES ARE INVOKED BY MCP IN RESPONSE */ 
Jae 3 TO SYSTEM COMMANDS ENTERED AT A TERMINAL. */ 
A THEY MAY ALSO BE ACCESSED BY USER PROGRAMS Ss 
L* DIRECTLY THROUGH THE USER INTERFACE SUBMODULE. */ 
1% */ 
7* (€3) SERVICE CALLS */ 
ies THIS SUBMODULE CONTAINS SERVICE ROUTINES AND x*/Z 
yi SUPPORTING PROCEDURES WHICH ALLOW A USER i 
S* PROGRAM TO ACCESS A VIRTUAL TERMINAL OR */ 
Lae VIRTUAL FLOPPY DISK. oe 
S# */ 


S BRRREK RAK KK KKK KK KKK RK BRR BRB RRB RRR AK ROR AK BRR BRR RB RR RR KKK ZK 
S RRRRRAR BRR KA AB OBR BRR RR OB BR BR ROR BOR BBR OR OR AB OR OB ARR OR RR OR BR OR ROR RR RR BOR AB OR BOR RH 


LS REKRRHKRKRHA RBBB BKB BRK BRK RB KR KR RR RR BBR ER OK OK OB OR OK OR RRR ROBB EK RR RK Z 
PRERKRERKKAAREREEREKK USER INTERFACE 262826262626 25 262626 2128 OR ROR KK / 
SP RRKRARA ARRIETA ER ARR ATER AB AR OR OK I IE OK AR RR IR OR OR IR IRR AR IK IR IR OE ARR ORR RK KZ 


SKEKKKKRKKKKKEK INTERMODULE LINKAGE MACROS #4*RRKKKKKKKK/Z 


DECLARE GLOB1 COMMON; 

CINT MB TS M2B) (M25:=90600H)] (MB:=90300H] (TB: =1000H] 
CINT S2B S3Bi (S2B:=2200H] ([(S3B:=2700H8) 
(MACRO MONITOR °C HEX MB +0OAAH]° ] 

[MACRO INDEX ’C HEX M2B + 3H)’ ] 

(MACRO ATTACH °C HEX S2B + 179H]°] 

[MACRO LOGIN ’(C HEX S2B + 224H]’ ] 

(MACRO PROTECT °C HEX S2B + 2ECH)]’] 

C(MACRO QUIT ’(C HEX S2B + 364H)]°] 

[MACRO BUMP ’( HEX S2B + 12BH)'] 

[MACRO RESTRICT ‘C HEX S2B + 36EdH]’]J 
C(MACRO SIZE ’CHEX S2B + 3FOH)’ ] 

(MACRO UNPROTECT ’( HEX S2B + 448H] 7] 
(MACRO WRITESPRINTER °C HEX S3B + 172H)'"]) 
(MACRO SELECTSDRIVE ’( HEX S3B + 22CH]'] 
(MACRO SETSDMA °C HEX S3B + 29EH)°] 

(MACRO SETSTRACK ’'CHEX S3B + 2BBHI ’] 
[MACRO SETSSECTOR °( HEX S3B + 2D0H)'] 
(MACRO READSFLOPPY ’( HEX S3B + 2EAH]'] 
(MACRO WRITESFLOPPY ‘(HEX S3B + OFEH]’] 
(MACRO MIS8MSG ‘'CHEX TB + 83¢H]°] 

[MACRO TERMINALSSTATUS ’°( HEX TB + 8&D2H]’] 
(MACRO READSTERMINAL ’( HEX TB + &DCH)'] 
(MACRO WRITESTERMINAL ‘(HEX TB + 93CH]’ J 
(MACRO PARM® ’*GLOB1( 10H)’ ] 

(MACRO ERROR ’GLOBI( 14H)’ ] 

[MACRO LOCK ’GLOB1I( 15H) ’] 

(MACRO SVCSSTACKSTOP *’GLOB1(2BH)°] /“* SVCSSTACK + TOP */ 
C(MACRO TASK ’GLOB1(241H) °] 

(MACRO TCTSSTATUS ’GLOB1(246H) ° J 

(MACRO SWAPSSTACK9 ’GLOBI(3BFH) ° J 
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SRRERKRKRKKKEARAKKE GENERAL PURPOSE MACROS ®KRRRRKKKKKKKKK/ 


CINT TOP] (CTOP:=20) 
[MACRO INPUTSWAITING ° OFFH”’ ] 


SRRRRKRRARRKARERRRKEEAR DECLARATIONS #®#*RRKKAKRKRRKAKKAKKKKKZ 


DECLARE (MTSSEXTERNAL, MTSSINTERNAL, EXIT, 
MTS, TERMSBLOCK) LABEL; 
DECLARE SAVE DATA (0,909,909); 


SRRRRRRRRBRARRARKRERE ENTRY POINT 4888 RRRRRRKKHRAARRARKK/ 


INTERNALSMTS: 7% INTERNAL ENTRY POINT INTO SERVICE xv 
7* MODULE, I.E. ENTRY POINT FROM ae 
/* OTHER MTS ROUTINES */ 
SAVE(2)=CA=[LLOCK]); /* SAVE LOCK VALUE x/7 
[ PARM@]=(HL=DE); 7“* SAVE PARM LIST ADDRESS x*/ 
SAVE= ( HL=9+SP) ; /7* SAVE USER SP */ 
SP=( HL=.CSVCSSTACKSTOP]); 
IF (A=<<C) !cyY GOTO MTS; 
A=(A=!C)+1; /* CONVERT FID TO POSITIVE NR x*/ 
fre cAs::3) !CY THEN 
7* INVALID COMMAND ~ ERROR 1 */ 
DO; CERROR]=(A=1); GOTO EXIT; END; 
H=90; L=A; 
DO CASE HL; 
7/* @® *7 DO; NOP; END; 
7* -1 */ DO; CALL [CREADSTERMINAL] ; 
C ERROR] =A; 
END; 
Zee-2 £7 CALL CBUMP] ; 
END; “* CASE */ 
GOTO EXIT; 


100H: 7x ADJUST ERTERNAL ENTRY POINT LOCATION */ 
EXTERNALSMTS: /7%* EXTERNAL ENTRY POINT INTO SERVICE *#/ 
7/* MODULE, I.E. ENTRY POINT FROM e7 
7k USER PROGRAMS *KS 
DISABLE; 
SAVE(2)=( A=[ LOCK] 8 @FEH); 7* SAVE LOCK VALUE */ 
[CLOCKI]=€A=A \ 01); 4=7* LOCK OUT SWAPPING *7 


ENABLE; 
[PARM@]=(HL=DE); /“* SAVE PARM LIST ADDRESS */7 
SAVE=( HL=0+SP) ; 7* SAVE USER SP *7 


SP=( HL=.[SVCSSTACKSTOP]) ; 


MTS: 7x SYSTEM AND SERVICE ROUTINES *~7 
IF (A=C; A::18) !CY THEN 
7* INVALID COMMAND - ERROR 1 xX*/ 
DO; CERROR)]=(A=1); GOTO EXIT: END; 
C ERROR] =(A=0); /* INITIALIZE RETURNED ERROR CODE */ 
H=0; L=C; 
DO CASE 8HL; 
SRRERRRKK SYSTEM CALLS #KAKRKKKKRKRKKAK / 


/* 0 #7 CALL CATTACHY] ; 

7* 1 %*/ CALL (MTSSMSGI]; 
7*® 2 *®/7 CALL CLOGIN] ; 
Pred £7 CALL [ PROTECT]; 
/* & */7 CALL [QUIT]; 
Zoo) eZ CALL C RESTRICT] ;: 
Ze GO eZ CALL (CSIZE]; 

yee ¢ *7 CALL [ UNPROTECT] ; 


SRERERERE SERVICE CALLS 4 RRR KKRKAKRK/ 
/* 8 *7 DO; CALL [C TERMINALSSTATUS] ; 
C ERROR] =A; 


7* 9 */ DO; CALL [CTERMINALSSTATUS] ; 
DO; CALL [ READSTERMINAL] ; 
[ ERROR] =A; 


END 
ELSE GOTO TERMSBLOCK; 
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END; 

/* 10 *7 CALL ( WRITESTERMINAL] ; 

/*® 11 */7 CALL [ WRITESPRINTER] ; 

/* 12 *7 CALL (SELECTSDRIVE] ; 

Y* 13 *7 CALL [CSETSDMAI; 

/* 14 *7 CALL [SETSTRACK] ; 

/* 15 *7 CALL [SETSSECTOR] ; 

7# 16 #7 CALL [ READSFLOPPY] ; 

Sk 1% *7 CALL ( WRITESFLOPPY] ; 
END; “* CASE */ 


EXIT: /*x COMMON EXIT POINT FOR INTERNAL AND EXTERNAL */7 


SP=(HL=SAVE); /“* RESTORE USER SP */ 

DISABLE; 

[ LOCK] =( A=SAVE(2)); =7/* RESTORE LOCK VALUE *~ 
A=(€ ERROR] ; 

ENABLE; 

RETURN ; 

/* END MTS */7 


TERMSBLOCK: 


A BRA AE RR RAE RR RR BR RAR ARAB RR BRR RA ROR RR RRRRRERRRAR RRB RRK Z 


7* THIS ROUTINE IS CALLED WHEN THE TASK CURRENTLY 


7* ALLOCATED THE CPU IS BLOCKED FOR TERMINAL I/®. THE 


7# ROUTINE STORES THE CURRENT MACHINE ENVIRONMENT IN 
/* THE SWAP STACK AND TRANSFERS CONTROL TO THE 

7/* MONITOR FOR SELECTION OF THE NEXT READY TASK. 

7* CALLED BY: MTS 


*/ 


A BRARRRARRA BAR A RARER RRB RE RB BRR RR ORR BBR OBR BR RE RR RR OR RRR ER RRR RR 


7* SET BIT 5 IN TCTSSTATUS *#/ 
DE=,{(TCTSSTATUS]; A=({ TASK]; CALL [ INDEX]; 
M( HL) =(A=MC HL) N\ 208) ; 

/* SAVE ENVIRONMENT */7 


C[SWAPSSTACK9]=( HL=SAVE); 7“* ONLY USER SP NEEDED *7 


GOTO CMONITOR] ; 
7* END TERMSBLOCK */ 


EOF 


ESET SPP S SOS ESSE SS STS SSS SELES SS LOSSES SS SESE SS ESSE SES LSS SS Ve 
SRKRKEKKAKRAKRKKAKAKAAAK SYSTEM CALLS #FEKKRAKKRKARKAKARARRREAKZ 
ESTES ES SSS ESSE SS OSE SSL OSS SSPE SES ESS SSE SPSS SES SSL SS SS SS DS Ve 


PRERBREKKHEREKH INTERMODULE LINKAGE MACROS *®***#*5#£* #44447 


DECLARE GLOB1 COMMON; 


CINT TB MB M2B) ([(M2B:=9600H] [(TB:=1900H] (MB: =9300H]) 


CINT S3B] (S3B:=2700H]) 

[MACRO MONITOR ‘'CHEX MB + OAAHI ’ ] 
CMACRO INDEX ‘({ HEX M2B + 3HIJ'] 
CMACRO INDEX2 ’({ HEX M2B + ODHI’] 
[MACRO INDEX¢ ‘'C HEX M2B + 18H]'] 
[MACRO INDEX& °CHEX M2B + 24H] '] 
CMACRO GET ‘(HEX M2B + 38H)’ ] 
[MACRO MOVBUF ‘'CHEX M2B + 41H]°] 
[MACRO MINISDISK ‘CHEX M2B + 54H) °] 
[MACRO SIZESMSG ‘C HEX TB + 864H)’'] 
[MACRO STATUSSMSG ‘CHEX TB + 88CH]') 
[MACRO CLEARSSTATUSSLINE '( HEX TB + 627H)°] 
[MACRO MTSSMSG ’CHEX TB + 837H)’] 
[MACRO PARM@ °*CLOB1( 19H) ’] 

[MACRO DISK ’GLOB1( 12H)’ ] 

(MACRO DRIVE ‘'GLOB1( 13H) °] 

CMACRO ERROR *GLOBI1( 14H) °] 

[MACRO MDBUF ‘GLOB1(3FH)’ ] 

[MACRO TASK *GLOB1(241H) °] 

[MACRO TCTSSTATUS ‘'GLOB1(246H) ’ ] 
[MACRO TCTSDM ’*’GLOB1(244AH)'° ] 

(MACRO TCTSSIZE *GLOB1(26AH) '] 
[MACRO TCTSBOE ’GLOB1(26EH) °] 
[MACRO TCTSEOE ‘GLOB1(276H) °] 
[MACRO DMTSFLAG *GLOB1(27EH) ' J 
[MACRO DMTSKEY *GLOB1(31EH) ‘] 





[MACRO VDCSDRIVE ’°GLOB1( 3AEH) ’ ] 
(MACRO CNFGSFILE *GLOB1(244H) °] 
(MACRO PRTSCNTRL *‘GLOB1(39EH) *] 
(MACRO READSBUF °{ HEX S3B + O7HI'] 
(MACRO WRITESBUF °C HEX S3B + 23H)’] 


A KRKKKKKKKKKKKKK GENERAL PURPOSE MACROS ***x****X**XKKKKKK/ 


(MACRO WRITE '2°] 
(MACRO HARDWARESERROR '8’ ] 


SP RRERKRKEKRKEKKRRKKKEKKK DECLARATIONS eK KR KRAKKRKKRR KES 


DECLARE PLIST DATA (0,6, OFFH, OFFH, OFFH, OFFH) ; 
DECLARE DSK DATA (9); 
DECLARE PA DATA (90); 


A KRKKKKREKKKKKKKKKK UTILITY PROCEDURES ***®*XK*XXKKRHRKHKKKKK/ 
VALSDRIVE: PROCEDURE; 


A REREREKRRKA KBE HRA KER KK BRK KER RK RRR RRR RR RE RARE KEK 
7* THIS PROCEDURE VALIDATES THE DRIVE NUMBER INPUT TO */ 


7* ANY SYSTEM CALL WHICH REQUIRES THAT PARAMETER. */ 
7* INPUT: A - DRIVE NUMBER TO BE VALIDATED */ 
7* OUTPUT: DRIVE - NUMBER OF FREE DRIVE FOUND */ 
f*# ERROR - ERROR CODE 8 / 
7* CALLED BY: ATTACH */ 


A RRRRKRBKRHKRHBBRARRB RB RRR RR RK RRR RRR KR ORK RR EK OK RRR RRR RRR HK KEK /Z 
IF (A::O0FFH) ZERO THEN 7x NO DRIVE SPECIFIED *~ 
DO; /7* SCAN DRIVE MAP FOR FREE DRIVE #-/ 

DECLARE L1 LABEL; 
DE=.CTCTSDM]; A={ TASK]; CALL ( INDEX8]; 
B=8; 
REPEAT; 
IF (A=<MCHL)) !cyY GOTO LI; 
HL=HL+1; 
UNTIL (¢(B=B-1) ZERO; 
“* NO DRIVE AVAILABLE - ERROR 10 x/ 
C ERROR] =( A=10); RETURN; 
Li: {(DRIVE]=( A=8-B); 7* FREE DRIVE FOUND */ 
END 
ELSE IF (€A::8) !CY THEN 
/* DRIVE NR > 7 —- ERROR 6 ¥*/ 
DO; CERROR] =( A=6); RETURN; END; 
END VALSDRIVE; 


VALSDISK: PROCEDURE; 
SRERRRRA RRA ABR HB RE IE RE BR RAR ROR AR ROR OR FE AR OR EB OR EE OB BR ARK ROB ROKR KZ 


/* THIS PROCEDURE VALIDATES THE DISK NUMBER INPUT TQ) */ 


7# ANY SYSTEM CALL WHICH REQUIRES THAT PARAMETER. */ 
7* INPUT: A - DISK NUMBER TO BE VALIDATED */ 
7* OUTPUT: DISK - NUMBER OF FREE DISK FOUND */ 
es ERROR - ERROR CODE / 
7* CALLED BY: ATTACH RS 


A RRR RRR RRR AK RR EE RE ERB ER BRE ROR BOR ORB OR OR OR OR OE ROR RR ROR OER RRR KZ 
IF(A::O0FFH) ZERO THEN 7x NO DISK SPECIFIED */ 
DO; /* SCAN DISK MAP FOR FREE DISK */ 
DECLARE L2 LABEL; 
HL= .CDMTSFLAG]; B=32; 


REPEAT; 
IF (A=>MCHL)) CY 7* DISK AVAILABLE x/ 
8 (A=>A) !CY /* NOT IN USE */ 
8 (A=>A) !CY 7* NOT PROTECTED *~¢ 
8 (A=>A) !CY /* NOT RESTRICTED */ 
THEN GOTO L2; 
HL=HL+1; 


UNTIL (B=B-1) ZERO; 
7# NO DISK AVAILABLE - ERROR 2 */7 
{ ERROR] =( A=2); RETURN: 
L2: {(DISK]=(A=32-B); 7* FREE DISK FOUND *~ 
END 
ELSE IF (A::32) !CY THEN 
7* DISK NR > 31 —- ERROR 4 */7 
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DO; £ ERROR] =( A=4); RETURN; END 
ELSE 
DO; /“* SEE IF SPECIFIED DISK AVAILABLE */ 
DE=.CDMTSFLAG]; A=C DISK]; CALL C INDEX]; 
IF (A=>MCHL)) !CY THEN 
7* DISK NOT AVAILABLE - ERROR 2 x7 
DO; C ERROR] =( A=2); RETURN; END; 
IF (A=>A) CY THEN 
“7* DISK IN USE - ERROR 3 xv 
DO; CERROR] =( A=3); RETURN; END; 
END; 
END VALSDISK; 


VALSKEY: PROCEDURE; 

SP RRRRRRER ERE ERK KAKA RRR K K BER K RE R RE R R RR  EE R R RE Z 
7* THIS PROCEDURE COMPARES THE KEY INPUT AS A SYSTEM ¥*-/ 
7* CALL PARAMETER WITH THAT ASSOCIATED WITH A SPECI-— #/ 


7* FIED VIRTUAL DISK FILE. */ 
7* INPUT: PARM - VARIABLE HOLDING ADDRESS OF PARM KEY x*/ 
yak DISK - VIRTUAL DISK FILE NUMBER 7 
7* OUTPUT: ERROR - ERROR CODE 7 
7* CALLED BY: ATTACH x7 


AP RRR RRR HRA RR IK AK RR RA RR ER ARR ROK AE KORE ROK OB OK ER ER IEEE EE EE / 
DE=.CDMTSKEY)]; A=C€CDISK]; CALL C INDEX4] ; 
DE=HL; HL=( PARM@] ; 
DO B=0 BY B=Btl WHILE (A=¢4; A::B) !ZERO; 
IF (A=MCDE); A::MC€HL)) ZERO 
N CIF €A::20H) ZERO & (€(A=M(HL)-OFFH) ZERO 
THEN CY=1 ELSE CY=90) CY 
THEN /* CHAR MATCH */ 
DO; 
DE=DE+1; HL=HL+!; 


ELSE /* KEY ERROR - ERROR 5 x*~ 
DO; [ERROR] =( A=5); RETURN; END; 
END; “* WHILE */ 
7* KEYS MATCH */7 
END VALSKEY; 


CLEARSFLAG: PROCEDURE; 
SP RERAKARARA RR RAR RRA KE RR KR AK RK EEK IER RK RAR AR ER EK ORE KEE KE RK / 


7* THIS PROCEDURE RESETS THE IN USE BIT (BIT 1) IN */ 


/* THE DMTSFLAG FOR A SPECIFIED VIRTUAL DISK. KS 
7* INPUT: B - DISK NUMBER */ 
7* CALLED BY: ATTACH, LOGIN, CLEARSDM */ 


SRA RRR RHR A ERK KE AE I A ER IE ER RIE IER AE ER I / 
DE=.CDMTSFLAG]; A=B & IFH; CALL C INDEX]; 
MCHL)=(A=M( HL) 3&8 OFDH); 

END CLEARSFLAG; 


CLEARSDM: PROCEDURE; 

SERRE RAR RA RAR ARH EE EB EB EE RE IE AR BR EK RRR AR IR ER AR AR RK EK / 
7* THIS PROCEDURE RESETS ALL ENTRIES IN THE TCTSDM */ 
7* ASSOCIATED WITH THE CURRENT VALUE OF TASK. */ 
7* CALLED BY: LOGIN, QUIT */ 
SRRERRERERKK KEKE RA KK RARER BER KK KBR KE RRA RR KR RR RK EK RE 


DE=.{TCTSDM]; A=C( TASK]; CALL C INDEXS8] ; 


B=-MC( HL); MC HL)=9; 
IF (A=<B) CY 8 (A=<A) !CY THEN 
DO; 
STACK=HL; 
STACK= BC; 
CALL CLEARSFLAG;: 
BC=STACK; 
HL=STACK; 
END; 
HL=HL+1; 
UNTIL (C=C-1) ZERO; 
END CLEARSDM; 


ARKRRRRKKKEKKKKKKAKKK SYSTEM ROUTINES #*®KKKEKKRAKRKRAKRKKK / 
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BUMP: PROCEDURE; 
PRERKRERE KKK KKK REA  K ER HK KEAR  E IE R  R I IIE R RRIR OR IOR IOK 
7* THIS INTERNAL SYSTEM CALL DELETES THE CURRENT TASK x/ 


7* FROM THE SYSTEM. */ 
/* ARGUMENTS: */ 
1% (1) FID = -2 */ 
J (2) PARM = NONE 7 
7/* VALUE: NONE */ 
/* CALLED BY: INTERNALSMTS, QUIT *K/S 


SP ERBRKKKRKKKEKK KKK K KKK ERK BK KKK EK RRR RIK IR RE KER KEKE 
7* WRITE MINI-DISK BUFFER IF NECESSARY *7 
CALL { WRITESBUF] ; 
IF (A=€ERRORJ] \ A) tZERO THEN 
DO; E=(€ HARDWARESERROR]; CALL [MTSSMSG]; END; 
7* CLEAR STATUS LINE */7 
A=( TASK]; CALL [CLEARSSTATUSSLINE]; 
7* CLEAR TCT */ 
CALL CLEARSDM; 
DE=.C{TCTSSIZE]; A=€ TASK]; CALL [ INDEX]; 
MCHL)=32; /’* SIZE = 16K */ 
HL=BC+( DE=.{£ TCTSSTATUS]) ; 
M( HL) =9; 7% RESET STATUS BYTE */7 
IF (A=<{PRTSCNTRL]) CY THEN “* PRINTER IN USE x*/ 
DO; 
A=>A; B=(A=A 8 O3H); 
IF (A=€ TASK]; A::B) ZERO THEN 
DO; 7* THIS TASK HAS PRINTER CONTROL */7 
IF (A=<C€CPRTSCNTRL1]; A=<A) CY THEN 
/* RESET PRINTER CONTROL BYTE */ 
{f PRTSCNTRL] =( A=9) ; 
END; 
END; 
END BUMP; 


ATTACH: PROCEDURE; 
ETT EST SSS ES SS SSS SSS SOS SSL ELS LS SSS POSS SSP StS SSDP Ses + + + SS oa 


7* SIMULATE THE PHYSICAL OPERATION OF LOADING DISK */ 


7* <DISK NRO INTO DRIVE <DRIVE LTR. KS 
7* ARGUMENTS: */ 
7* (1) FID = @ */ 
7* (2) PARM = BASE ADDRESS OF PARAMETER LIST */ 
7 BYTE 9: DRIVE NUMBER (0-7) */ 
7 BYTE 1: DISK NUMBER (9-31) */ 
SR BYTES 2-5: PROTECTION KEY (0-4 CHARS) */ 
/* VALUE: ERROR CODE KS 
7* CALLED BY: LOGIN, MTS 7 


VETS SSSLE PSS SSPE SSS SESS SESS SSS SSS StS Ss tts oS Se St SS SS DS re 
BC=( HL={PARM@]); CDRIVE]=( A=M(BC)); 
7* VALIDATE DRIVE NR */Z 
CALL VALSDRIVE; IF (A=CERROR] \ A) !ZERO RETURN; 
HL={PARMO]+1; [DISK] =(A=MCHL)) ; 
7* VALIDATE DISK NR */ 
CALL VALSDISK; IF (A=(ERROR] \ A) !ZERO RETURN; 
DE=.CDMTSFLAG]; A=( DISK]; CALL [ INDEX]; 
IF (A=M(HL) 8& 04H) !ZERO THEN /’* DISK PROTECTED */7 


DO; 
DE=.{ DMTSFLAGI ; A-{DISK]; CALL C INDEX); 
IF (A=MC HL) 8 98H) !ZERO THEN 
DO; 7* READ ONLY DISK */7 
7* SET UP READ ONLY BIT ¥*¥/ 
M( HL)=CA=MC HL) \ 90245); 
[DISKI=( A=(DISK] \ 40H); 7“* SET TCTSDM BIT 6 */ 
END 
ELSE 
DO; 7* VALIDATE KEY */ 
( PARMO]=( HL=[ PARM@1]+1,+1); 
CALL VALSKEY; 
IF (A=( ERROR] \ AD !ZERO RETURN; 
END; 
END; 


7* MODIFY DMTSFLAG */ 
DE= .(DMTSFLAC]; A=[DISK] 8 1FH; CALL [ INDEX]; 
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MC HL) =( A=MCHLI NN O20); /“* SET DMTSFLAG BIT 1 */ 


7* MODIFY TCTSDM x*/ 

DE=.C TOTSDM)]; A=C( TASK]; CALL ( INDEXS) ; 

DE=HL; A=C( DRIVE]; CALL [ INDEX]; 

B= MC HL) ; 

MC HL)=CA=C DISK] \ 80H); “* SET TCTSDM BIT 7 *7 
7* RESET OLD DISK’S IN USE BIT x*/ 

IF (A*B 8&8 40H) ZERO CALL CLEARSFLAG; 

7* DISPLAY STATUS MSG */ 

B=(A=C(DRIVE]); C=C A=C(DISK] 8& 1FH); 

IF (A=({DISK] 840H) !ZERO THEN A=72H ELSE A=" °; 
CALL [STATUSSMSG] ; 

END ATTACH; 


LOGIN: PROCEDURE; 
FETT E LEST ESS LSS SESS SSOP SSSSSOSSSOSPOASSSOSSLOSSS ODE SSL SS Oa 


7#* 


A 


THIS SYSTEM CALL NOTIFIES MTS THAT THE REQUESTING 


TERMINAL IS NOW ACTIVE, AND SIMULATES THE PHYSIGAL 
COLD-START BOOTSTRAP OPERATION. THE BOOTSTRAP LOAD 
TAKES PLACE FROM VIRTUAL DRIVE A. THE VIRTUAL DISK 


ATTACHED TO THIS DRIVE MAY BE SPECIFIED IN THE 
PARAMETER LIST, OR DISKO WILL BE ASSUMMED AS THE 
DEFAULT. 
ARGUMENTS: 
SigeriD = <2 
(2) PARM = BASE ADDRESS OF PARAMETER LIST 
BYTE ®: DISK NUMBER (9-31) 
BYTES i-4: PROTECTION KEY (90-4 CHARS) 
VALUE: ERROR CODE 


*Z 
KZ 


x7 


A RRARARKRKKAKR RK RAK KBAR KK BRK RK KBR RRB BRB OR BB BR ERR BRR KR BR RRR KK Z 


7* WRITE MINI-DISK BUFFER IF NECESSARY */7 
CALL ( WRITESBUF] ; 
IF (CA=CERROR] ‘\N A) !ZERO RETURN; 
7* RE-INITIALIZE TCT *7 
CALL CLEARSDMN; 
7* PROCESS DISK PARAMETER */ 
IF (HL={PARM@]; A=MCHL); A::OFFE) !ZERO THEN 
DO; “* DISK SPECIFIED x*/ 
BC=5; DE=HL; HL=.PLIST(1); 
CALL (MOVBUF]; [ PARM@]=( HL=.PLIST) ; 
END 
ELSE 
DO; ~* ASSUME DISK 0 */ 
PLIST( 1) =(A=0); PLIST(C2) =(A='M’); 
PLIST(3) =(€A=’T’); PLIST(4)=(€CA='S"); 
PLIST(S)=( A=" °);3 
{ PARM0]=( HL=.PLIST) ; 
END; 
CALL ATTACH; 
IF CA={ERROR) N A) !ZERO RETURN; 
B=@; C=C A=({TASK]); 
HL= BC+( DE=.(C TCTSSTATUS] ) ; 
M(HL)=1; 7x* SET BIT 90 */ 
7* DISPLAY SIZE MSG */ 
DE=.{(TCTSSIZE]; A=( TASK]; CALL ( INDEX]; 
CY=9; A=>MCHL); CALL (SIZESMSG) ; 
END LOGIN; 


UPDATESCNFGSFILE: PROCEDURE; 


A RRA RRR RRR EER RK RRR BE EA ARE HE AR AE EK EE EE AB ARB RR ER BRB RK ZH 


7# 


SRR HR RARER RR HR RRB RR BR KK HER RE EK AR OE OR RK AS EE ER EB OB ARR RB OB RB OR BER AE KZ 


THIS ROUTINE PROVIDES INDEXING INTO THE MTS */ 
CONFIGURATION FILE AND PERMITS MODIFICATION OF %/ 
OF THE CONFIGURATION FILE WHICH IS NECESARRY nS 
WHEN PROTECTING, UNPROTECTING OR RESTRICTING *S 
USER FILES. */ 
CALLED BY: PROTECT, UNPROTECT, RESTRICT */ 


PA=A; CALL [( WRITESBUF]; 

BC=( HL=( CNFGSFILE)) ; 

CALL ( READSBUF]1 ; 

DE=.(MDBUF]: A=DSK; CALL (INDEX81; DE=HL; 
A=DSK; CALL CINDEX4]; B=0; C=C A=DSK) ; 
HL=HL+BC; HL= HL+( DE=8) ; 
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STACK=HL; BC=(HL=(PARM@]); HL=STACK; BC=BC+1; D=9@; 
REPEAT; 
A=MCBC); IF (A: :@FFE) ZERO THEN A=208; 
MC HL)I=A; /“* CHANGE FF PARAMETER TO SPACE */ 
BC=BC+1; HL=HL+1; D=( A=D+1); 
UNTIL (A::4) ZERO; 
MC HL)=(A=PA); /* STORE PROTECTION ATTRIBUTE x*-/ 
{ VDCSDRI VEJ=( A=[ VDCSDRIVE] \ 80H); 
END UPDATESCNFGSF ILE; 


PROTECT: PROCEDURE; 
PRR RRA EER REE RE RR EO OK IK OR OR RE OR OR OK RR RR ORE EK RK ER EK RE RK KKK / 
7* THIS SYSTEM CALL ADDS THE READ/WRITE PROTECTION */ 


7/* ATTRIBUTE TO A SPECIFIED VIRTUAL DISK FILE. */ 
7* ARGUMENTS: */ 
7* €1) FID = 3 */ 
7* (2) PARM = BASE ADDRESS OF PARAMETER LIST 7 
* BYTE 9: DISK NUMBER (9-31) */ 
an BYTES 1-4: PROTECTION KEY (0-4 CHARS) */ 
7* VALUE: ERROR CODE */ 


AS RRRR RRR RRR RK KR RRR RR OR RK ER ERR CK KOR KOK SK KORO KKK / 
IF (HL=CPARMO@}]; DSK=(A=M(HL)); A::32) 'CY THEN 
DO; 7* DISK # > 31 */ 

{C ERROR] = ( A=+4) ; 
RETURN; 
END 
ELSE 
IF (HL=HL+1; A=MC HL); A::OFFH) ZERO THEN 
DO; /* KEY ERROR */ 
{ ERROR] =( A=5) ; 
RETURN; 
END 
ELSE 
IF (DE=.{CDMTSFLAG]; A=DSK; CALL [ INDEX); 
A=MC HL); A=>A; A=>A; A=>A) CY THEN 
DO; /7* DISK ALREADY PROTECTED *-/ 
{[ ERROR] =( A=35) ; RETURN ; 
END 
ELSE 
DO; 
DE=.(DMTSKEY] ; A=DSK; CALL C INDEX4]; 
BC=HL; HL=( PARN9@} +1; D=90; 
REPEAT; 7“* UPDATE DMTSKEY */ 
A=MC HL); IF (A::@FFH) ZERO THEN A=208; 
MC BC) =A; BC=BC+1; HL=HL+!1; D=( A=Dtl1); 
UNTIL (A::4) ZERO; 
DE=.{DMTSFLAG]; A=DSK; CALL [ INDEX]; 
M( BL) =(A=MC HL) N O48) ; “* SET PROTECT BIT x*7 
="P*’; CALL UPDATESCNFGSFILE; 


END; 
END PROTECT; 
QUIT: PROCEDURE; 


A) RRR RR RR ARR EAR RRR OR OR OR OR OR RE A A RB OE OR ISSR OR BR OES 2 AE ORR IE OR OR AR OE RARE OR OK RRS / 
7* THIS SYSTEM CALL NOTIFIES MTS TdAT THE REQUESTING */ 


7* TERMINAL IS NO LONGER ACTIVE. */ 
/* ARGUMENTS: */ 
7* (1) FID = & */ 
7/* (2) PARM = NONE */ 
/* VALUE: NONE */ 
A RRRAKE RK EERE EEK ERE RE RE RE RR RR A RK REE KE RK BE ORE EK RK AE / 

CALL BUMP; 

GOTO [MONITOR] ; 

END QUIT; 


RESTRICT: PROCEDURE; 

A RRR RK RR REAR EB BR EE ER OR OBR OB OR OS EE OK OR OR OK OR RR OR OK 2K OK ROR ERK / 
7* THIS SYSTEM CALL ADDS THE READ RESTRICTION ATTRI- */ 
“7* BUTE TO A SPECIFIED PROTECTED VIRTUAL DISK FILE. */7 


7* ARGUMENTS: */ 
7* (1) FID = § 7 
/* (2) PARM = BASE ADDRESS OF PARAMETER LIST */ 
7 #* BYTE 9: DISK NUMBER (0-31) */ 
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* 


BYTES 1-4: PROTECTION KEY (0-4 CHARS) 


7* VALUE: ERROR CODE 
SRBRRRRKKA RAAB RRB KEK RK RE ER ER RR OR EK RE ROR EER EE ERK / 


IF (HL=CPARM@]; DSK=(A=MCHL)); <A::32) !CY THEN 
DO; /7* DISK > 31 */Z 
C ERROR] =( A=4); RETURN; 
END; 
IF (DE=.{( DMTSFLAG]; A=DSK; CALL [ INDEX]; 
A=>MCHL); A=>A; A=>A) CY THEN 
DO; 7* DISK IN USE */ 
{ ERROR] =(A=3);  #RETURN; 
END; 
IF (DE=.CDMTSFLAG]; A=DSK; CALL [C INDEX]; 
A=MC HL); A=>A; <A=>A; #£A=>A) 'CY THEN 
DO; 7* DISK NOT PROTECTED */ 
C ERROR] =(A=5); #RETURN; 


DE=.CDMTSKEY]; A=DSK; CALL [ INDEX41; 


re 
x7 


STACK=HL; BC=( HL=( PARMO]); BC=8C+1; HL=STACK; E=@; 


REPEAT; 
IF (A=MCBC); IF (A::@FFH) ZERO THEN A=208; 
A::MCHL)) !ZERO THEN 
DO; /“* KEY DOES NOT MATCH */ 
[ERROR] =( A=5);  #RETURN; 
END; 
HL=HL+ 1; BC=BCr!1; E=( A=Eri1); 
UNTIL (A::4) ZERO; 
/* SET RESTRICTION BIT IN DMTSFLAG xv 
DE=.C DMTSFLAG]; A=DSK; CALL ( INDEX]; 
MC HL) =( A= MC HL) \ 98H); 
A="R*; CALL UPDATESCNFGSFILE; 
END RESTRICT; 


SIZE: PROCEDURE; 
SRR RBBB RRB RE BR BB RE KK BK RR BR RRR RK OK RR AE RK KE RR KK KZ 


7% 
7 * 


IMAGE. 


7* ARGUMENTS: 


A * 
# 
7 


mis FID = 6 
(2) PARM = REQUESTED SIZE IN KILOBYTES 


VALUE: ERROR CODE 


THIS SYSTEM CALL SETS THE SIZE OF THE USER’S SWAP */ 


*/ 


A BRRRARR BRR ABR ARR BR BRA ROB BRR RRR RRB OB RB OB BOB RB BB OB OB BOB AR BR ROR OB RB REO 


7* COMPARE REQUESTED SIZE WITH MAX SIZE */ 

IF (A=C(PARMO]; A::49) !CY THEN 
7/* QUT OF BOUNDS - INVALID CMD ERROR 1 */ 
DO; C ERROR] =( A=1); RETURN; END; 

/* COMPARE REQUESTED SIZE WITH SWAP FILE SIZE */7 

DE=.{ TCTSBOE]; A=( TASK]; CALL [ INDEX2] ; 

CALL (GET]; B=9; C=C A=<<CPARMO]); 

HL=BC+DE; STACK=HL; 7“* SAVE SUM */7 

DE=.{(TCTSEOE]; A=(€ TASK]; CALL ( INDEX2] ; 

CALL [GET]; BC=BC+1; 

DE=STACK; /* RESTORE SUM *#/ 

A=C-E; A=B--D; 

IF MINUS THEN 
/* QUT OF BOUNDS - INVALID CMD ERROR [I #/ 
DO; CERRORJ]=(A=1!); RETURN: END; 

7* DISPLAY SIZE MSG */ 

A=(€ PARM@]; CALL [SIZESMSG] ; 

/* UPDATE TCT */ 

DE=.( TCTSSIZE]; A=(€ TASK]; CALL [ INDEX] ; 

M( HL) =( A=<< ( PARM@]) ; 

END SIZE; 


UNPROTECT: PROCEDURE; 
A RRR RRA BKK RR IRR ROR RE BRR AK TOR IRB RB ROR IR AB AR IER AR OR A OB OE RR OB OK ROR ARB OK RR KK Z 


7 
as 
C# 
7* 
7 
7 
7 * 


wi StD = ¢ 
(2) PARM = BASE ADDRESS OF PARAMETER LIST 
BYTE 9: DISK NUMBER (90-31) 
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THIS SYSTEM CALL DELETES THE READ RESTRICTION AND */ 
READ/ WRITE PROTECTION ATTRIBUTES FROM A SPECIFIED */ 
VIRTUAL DISK FILE. 

ARGUMENTS: 





7 


7* VALUE: ERROR CODE 


BYTES 1-4: PROTECTION KEY (0-4 CHARS) */ 


*7 


SBR RAR ARAB RR BRR BRB RR BR BR RAR OR AB BRB AB AB OB OB OB OR OB BB OR OR RB BB BB OK RRB ORR RK RRR RK 


IF (HL=(PARMO]; DSK=(A=MCHL)); =A::32) !CY THEN 
DO; 7* DISK # > 31 */ 
C ERROR] =( A=4) ; 
RETURN ; 
END 
ELSE 
IF (HL=HL+1; A=M( HL); A::OFFH) ZERO THEN 
DO; 7“* KEY ERROR */ 
C ERROR] =( A=5) ; 
RETURN ; 
END 
ELSE 
DO; /* CHECK IF DMTSKEY MATCHES KEY */ 


DE=.CDMTSKEY]; A=DSK; CALL [ INDEX4]; 
STACK=HL; BC=( HL=( PARMO]); BC=BC+I1; 
REPEAT; 

IF (CA=M( BC); IF (A: :@FFH) ZERO THEN A=208; 
A::M(HL)) !ZERO THEN 
7* DMTSKEY NOT = KEY x*~ 
[ERROR] =( A=5); RETURN; 

END; 

HL=HL+1; BC=BC+1; 
UNTIL (A::4) ZERO; 


HL=STACK; E=9; 


DO; 


B=CA=E+t1) ; 


END; 
7* SET DMTSKEY = 20H, 20H, 20H,20H */ 


DE=.C(DMTSKEY]; A=DSK; CALL CINDEX4]; £4E=90; 
REPEAT; 

M( HL) =( A=20H); HAL=HL+1; £4E=( A=E+1); 
UNTIL (A::4) ZERO; 
DE=.{(DMTSFLAG]); A=DSK; CALL [( INDEX]; 


7 


MC HL)=(A=MCHL) & 


A= 


RESET BIT 3 AND + OF DMTISFLAG x*/ 
03H) ; 
CALL UPDATESCNFGSF ILE; 


a 
’ 


END UNPROTECT; 


EOF 


A RRB BRR KBR BRK ER RR AB RK EK BB BR EOE AE OB OR ORR OE IE OK OB RB OB AR RR AR OB OB AR OB OB BRO ROK / 
SP RRRBRKRKKKRKAKKARKKAK SERVICE CALLS *RRRKRKKKKRRKKKKRERKKZ 
A BRRKRBK KR KKK RR RKB RRB RB ORK ROK KK RR RAK RK KR KKK KR RE KRKKK KB KHZ 


SHRRRKRARAKKKKK LNTERMODULE LINKAGE MACROS *#***#********/ 


DECLARE GLOB1 COMMON; 


CINT M2B] 


C MACRO 
( MACRO 
C MACRO 
C MACRO 
C MACRO 
C MACRO 
C MACRO 
[ MACRO 
C MACRO 
C MACRO 
[ MACRO 
{ MACRO 
C MACRO 
C MACRO 
C MACRO 
C MACRO 
C MACRO 
C MACRO 
C MACRO 
C MACRO 
C MACRO 
C MACRO 
C MACRO 
( MACRO 


( M2B: =90600H8)] 

"(HEX M2B + 3Hj)°] 
INDEX2 °C HEX M2B + ODH]’] 
INDEX8 ’°( HEX M2B + 24H]°*) 
GET ’C( HEX M2B + 38H]'] 
MOVBUF ’‘'C HEX M2B + 41H]’] 
MINISDISK °C HEX M2B + 54H)’ ] 
READSPRTSBUF °C HEX M2B + 9EH]'"] 
PRTSSTAT ’GLOB1(9@)°] 
BUFSPTR ’*GLOB1(1)°]) 

PARMO® °*'GLOB1(1@H) ’] 
PARM! ’°GLOB1(11H)’°] 
DISK ’°’GLOB1(12H) ’] 
DRIVE ’GLOB1( 13H) °] 
ERROR °’GLOB1( 14H) ’] 
MDBUF ’°GLOB1(3FH) ’] 
MDSADO ’GLOB1(23FH) '] 
MDSAD1 'GLOB1(24@6H) ’] 
TASK *GLOB1(241H) °] 
TCTSDM °GLOB1(24AH) ’] 


INDEX 


DMTSBOE °*GLOB1(29EH) ‘] 
DMTSEOE °’GLOB1(2DEH)’ ] 
PRTSBOE ’GLOBI(39FH)’ ] 
PRTSEOE *GLOB1IC3AIHD) *] 
PRTSSEC ’GLOB1(3A3H) ’ ] 
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[MACRO VDCSDRIVE ’GLOBI1(3AEH) ’ J 
[MACRO VDCSBOE ’*GLOBI(3AFH) ’] 
[MACRO VDCSEOE® *GLOBI(3BIH) ’] 
[MACRO VDCSEOE1 ’GLOB1(3B2H) °] 
[MACRO VDCSSECTOR °GLOBI1(3B3BH) ’ ] 
[MACRO VDCSTRACK ’°’GLOB1(35B4H) ’ ] 
[MACRO VDCSDMA *GLOBI( SBSH) °] 
(MACRO PRTISCNTRL ’GLOBI(39EH) ’] 


SRRARKREKRAEKKKKEE GENERAL PURPOSE MACROS ****** eee RRR KRH/ 


(MACRO READ °1°] 
(MACRO WRITE °*2°] 
(MACRO CNTRLSZ ° tAH’] 
(MACRO PRTSRDY ‘'OBOH’ } 
[MACRO CNTRLSR ’ 12H’) 


S RRA KRERKEKEKEK MODULE DECLARATION wee KKK KKH KEK, 
DECLARE CHAR DATA (@); 


A RRAERRARKREKERERERE UTILITY PROCEDURES 62620026 KKK KKK KEKS 


READSBUF: PROCEDURE; 
S RRA KEBAB HE AH HEA A HEE A AEB IEE A I AER EE OE I IE RE HE AE IE HE OR IR RIK EEE 


7x THIS PROCEDURE READS A SPECIFIED MINI-DISK SECTOR x7 


7* INTO MDBUF AND UPDATES MDSAD. */ 
7* INPUT: BC ~ MINI-DISK SECTOR NUMBER */ 
7* OUTPUT: ERROR - ERROR CODE */ 
“* CALLED BY: MAP, UPDATESCNFGSFILE */ 


J RRRRRR KKK KKK RAK KK RAK KHER KK RK RR RR AR RR OR RIE RR ORE RR KZ 
DE=.CMDBUF]; L=C READ]; CALL C(MINISDISK] ; 
IF (A::@) !ZERO THEN 
7* HARDWARE ERROR ~- ERROR 8 */ 
DO; C ERROR] =(A=8); RETURN; END; 
C MDSADO@] =( HL=BC) ; 
END READSBUF ; 


WRITESBUF: PROCEDURE; 

SRRERAAKK KARABAKH KAR AK BER ER RE AK AR EK RIE BR EK ERR KZ 
7* THIS PROCEDURE CHECKS THE MODIFICATION BIT IN */ 
7* VDCSDRIVE TO DETERMINE IF THE CONTENTS OF MDBUF *K/ 
7* HAVE BEEN ALTERED. IF SO, THE BUFFER IS WRITTEN TO */ 


“* THE MINI-~DISK AND THE MOD BIT IS RESET. */ 
7* CALLED BY: BUMP, MAP, LOGIN, UPDATESCNFGSFILE, */ 
C* SELECTSDRI VE */ 


A RRRKRKBKRBRKHRHRAKR KKB ARKH RK RRR RKB RRR RR KBR RR ERK OE ORR RR RK RE OK AE ROK KZ 
IF (A=<C(VDCSDRIVE]) [!CY RETURN; 
BC=( HL={ MDSAD@]); DE=.{(MDBUF]; 
L=( WRITE]; CALL (MINISDISK]; 
IF (€A::@) !ZERO THEN 
/* HARDWARE ERROR ~ ERROR 8 ¥/ 
DO; C ERROR] =(A=8); RETURN; END; 
{ VDCSDRIVEJ]=( A=€ VDCSDRIVE] & 7V7FH); 
END WRITESBUF ; 


MAP: PROCEDURE; 
A RRKRRRKKKRKRKRKRKKK AK KKK BK RK RAR KK BAB RRR ARAB KRRR RK ARRAHKRRRKRRARKRK Z 
/* THIS PROCEDURE CALCULATES THE RELATIVE OFFSET OF A */ 
7* SPECIFIED VIRTUAL FLOPPY DISK SECTOR IN THE MINI- */ 
7* DISK FILE AND THE BASE ADDRESS OF THAT SECTOR IN */ 
/7* THE MINI~DISK BUFFER AFTER THE FILE IS READ. THEN */ 
7* IT CALCULATES THE ACTUAL MINI~DISK SECTOR NUMBER = */ 
7* CONTAINING THE ADDRESSED FLOPPY DISK SECTOR, AND = x*/ 
7* COMPARES IT WITH THE CURRENT CONTENTS OF MDBUF. IF */ 
7* THE TWO ARE NOT EQUAL, THE OLD BUFFER IS WRITTEN */ 
/* TO THE MINI-DISK AND THE NEWLY CALCULATED SECTOR = */ 
y* NUMBER READ IN TO REFILL THE BUFFER. A COMPARISON +x, 
7* IS ALSO MADE BETWEEN THE CALCULATED MINI-DISK 7 
7* SECTOR NUMBER AND THE FILE’S EOE VALUE TO ENSURE */ 
y* THAT THE SPECIFIED VIRTUAL DISK SECTOR ADDRESS IS */ 
/* WITHIN THE BOUNDS OF THE FILE. «/ 
/7* INPUT: VDCSTRACK - FLOPPY DISK TRACK NUMBER / 
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S# VDCSSECTOR - FLOPPY DISK SECTOR NUMBER *S 


7* OUTPUT: BC = 128 = FLOPPY DISK SECTOR SIZE 7 
ie Hi, = BASE ADDRESS OF FLOPPY DISK SECTOR */ 

IN BUFFER */ 
om CALLED BY: READSFLOPPY, WRITESFLOPPY */ 


A RRR RK RK RR RK RAB RR RAR AR OK OR OR OR AR OB OK OK OK OR OK RR ROR OK OR OK OK RR OE OB OK OK AR OK OK EK OK RK KKK SK 
DECLARE BUFAD DATA (90,9); 
DECLARE SECNR DATA (0,90); 
D=( A=({ VDCSTRACK]) ; 
E=( A=€ VDCSSECTOR] ) ;x 
“* MULTIPLY TRACK #* BY 26; ADD SECTOR +; SUBTRACT 1 ¥~7 
B=9; CY=9; 
A=<D; L=A; /“* 2 * TRACK; SAVE IN L REG */ 
CY=0; A=<A; /“* & * TRACK *7 
IF CY THEN B=-1; 7* SAVE HIGH ORDER BITS IN B x*/ 
A=AtL; C=A; A=L; /“* SAVE 2 * TRACK IN ACCUM. *- 
HL=@; HL=HL+BC; HL=HL+BC; HL=HL+BC; HL=HLt+Bc; 
7/* HL NOW CONTAINS 24 * THE TRACK # xv 
B=0; C=A; HL=HL+BC; /* HL CONTAINS 26 * TRACK # x7 
C=E; HL=HLt+BC; HL=HL-1; ~* SECTOR * ADDED ON AND SUB 1 
7* DIVIDE CONTENTS OF HL BY 4 */7 
DE=HL; “* SAVE 26 * TRACK + SECTOR # -1 *- 
CY=0; D=(€A=>D); E=(A=>E); 
CY=90; D=(CA=>D); A=>E; 
B=D; C=A; /* BC HAS (26 * SECTOR # -1) 7 4 */ 
7* COMPUTE BUFFER OFFSET x*/ 
IF (A={ VDCSTRACK]; A=A & 91H) ZERO THEN 
A=({ VDCSSECTOR] 7* TRACK iS EVEN *¥*~2 
ELSE 
A=({ VDCSSECTOR] ,+1,+1; /“* TRACK IS ODD */ 
TEST: 
IF (A::3) 'CyY THEN 
DO; 
A=A~4;3 
GOTO TEST; 
END; 
L=A-1; H=@; 
DO CASE HL; 
DE=90; 
DE= 128; 
DE=256; 
DE=384; 
END; 


/* DE = RELATIVE BUFFER ADDRESS *~ 

BUFAD=( HL=.(MDBUF], +DE) ; 
“* CALCULATE AND SAVE NEW MINI-DISK SECTOR NR */Z 
SECNR=( HL={ VDCSBOE] + BOC); 
7* COMPARE NEW SECTOR NR WITH VDCSEOE */7 
A=({ VDCSEOE@1I-L; A={ VDCSEOE1]~--4; 
IF MINUS THEN 

/* QUT OF BOUNDS —- ERROR 12 */7 

DO; CERROR)]=(A=12); RETURN; END; 
7* COMPARE NEW SECTOR NR WI'lTH MDSAD x*/7 
IF ¢A=({MDSADO@I]; A::L) 'ZERO THEN 

CY=90 
ELSE IF (A=(€MDSADI]; A::H) !ZERO THEN 

CY=9 

ELSE CY=1 
/* WRITE OLD SECTOR AND SIBENY NEW IF NECESSARY *~/ 
IF !cCY THEN 

DO; /* NOT EQUAL */ 

CALL WRITESBUF ; 

IF (A=CERROR] \ A) !ZERO RETURN; 

BC=( HL=SECNR); CALL READSBUF; 

IF €A=C€CERROR] \ A) !ZERO RETURN; 

END; 
“7* SET UP REGISTERS FOR RETURN */ 
BC=128; DE=( HL=BUFAD) ; 
END MAP; 


WRITESPRISBUF: PROCEDURE; 
SHKRHKRRK KKK ERRATA RE EEE RARER ARAB RAR KEE ERA Z 
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THIS 


ROUTINE IS CALLED BY WRITESPRINTER WHEN THE 


PRINT BUFFER LOCATED BETWEEN 190 - 300H IN MEMORY 
IS FULL OR WHEN A CONTROL Z (EOF INDICATOR) HAS 


BEEN 


WRITTEN INTO THE BUFFER. IN BOTH CASES THE 


CONTENTS OF THE BUFFER IS WRITTEN ONTO THE MINI- 


DISK 


IN MTSPRT. 


CALLED BY: WRITESPRINTER 
SRR RRRAR RRR RA EE AEE EB EE OR IE I ER AE AR OR BE OR EE IEE ARR IIE EE IE IEE / 


HL=[( 
DE= 1 
CALL 
IFCA 
DO; 


END; 


PRTSSEC]; BC=HL; 

OOH; L=( WRITE] ; 
CMINISDISK ; 
73:0) !ZERO THEN 


{ ERROR] =( A=8) ; 
RETURN ; 


HL=( PRTSEOE] ; 
IF (A*H; A::B) CY 8 (A=L; A::C) CY THEN 


DO; 


END; 
END 


7* ERCEEDED EOE OF MISSPRISFILE x7 
C ERROR] =( A= 12) ; 


BC=BC+1; 
{C PRTSSEC}=(C HL=BC) ; 
/* PRTSSEC INCREMENTED */ 


WRITESPRISBUF ; 


7* SET UP FOR CALL TO MINIDISK *7 


SHREK EKER EEK SERVICE ROUTINES 262626066 / 


WRITESPRINTER: PROCEDURE; 
PRR RK REAR BAH BRE RR EE RE IE AR ER EB OR IB AR OR BR OR IEE AE OR OR ER ER AR OB EE EE / 


eS 
S* 
aX 
7 
L# 
7 * 
7% 


7 
KZ 
eS 
*/ 
eZ 


THIS SERVICE CALL IS MADE TO WRITE CHARACTERS INTO */ 
THE PRINTER BUFFER WHICH IS LOCATED BETWEEN 100 - 
300H IN MEMORY. 
ARGUMENTS: 

Geer iD = it 

(2) PARM = ASCII CHARACTER 
VALUE: ERROR CODE 


KZ 


A SRR ARR RRR RAR RR RRR EK RK RRR RRR RRR OR ER AE EK KR OR AE OR EK KK OK OR KOR ER KOK KZ 
CHAR=(A=E); 7“* SAVE CHARACTER */ 


IF ¢ 
DO; 


END 
ELSE 
DO; 


END; 
IF ¢ 
DO; 


A=( PRTSCNTRLJ; A::0) ZERO THEN 
“* PRINTER NOT IN USE */ 


IF (C PRTSSTATI]=(A=INC8AH)); A::CPRTSRDY]) !ZERO THEN 


DO; 

[ ERROR] =( A=7); 

RETURN ; 
END; 
/* SET PRINTER IN USE BIT #2 
[ PRTSCNTRL] =( A=( TASK] \ 80H); 
[ PRTSSEC] =( HL=€ PRTSBOE]) ; 
{C BUFSPTR] =( HL= 1908) ; 


/* CHECK IF CURRENT TASK OWNS PRINTER *7 
B=(A=A 8 3); “* B = TASK WHICH HAS PRINTER X*/ 
IF (A=(€ TASK] ; A;:B) !ZERO THEN 
DO; 7* TASK DOES NOT OWN PRINTER X*/7 

[ ERROR] =(€ A=11); 
RETURN ; 
END 
ELSE 
IF (A=( PRTSCNTRL]; A=<A; A=<A) CY THEN 
DO; 7* PRINTER IS PRINTING A FILE ¥*/7 
CERROR] =( A=11); 
RETURN; 
END; 


A=CHAR; A: :CCNTRL3Z]) ! 00 8&8 (A:: CCNTRLSRI) 
7* FILL BUFFER *7 

BL=( BUFSPTR] ; 

IF (A=3; A::H) ZERO & (A=0; A::L) ZERO THEN 
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'ZERO THEN 





DO; “* BUFFER FULL - WRITE TO DISK xv 
CALL WRITESPRTSBUF; 
C BUF SPTRI =( HL= 1005) ; 
END; 
HL=C€ BUFSPTR] ; 
MC HL) = ( A=CHAR) ; 
( BUFSPTR]=( HL=C BUFSPTR], +1); 
END 
ELSE 
DO; “x END OF FILE CONDITION, SET UP FOR PRINTING ¥*-~ 
IF (A: :CCNTRLSZ)]) ZERO THEN 
DO; 7“* EOF x*7 
HL=( BUFSPTR] ; 
MC HL) =( A=CHAR) ; 
CALL WRITESPRTSBUF ; 
END; 
[ PRTSSEC] =( HL=C€ PRTSBOE])) ; 
[ BUFSPTRI =( HL= 1008) ; 
CALL ( READSPRTSBUF] ; 
DISABLE; 
C PRTSCNTRL)]=( A=C PRTSCNTRL] \ 40H); 
7* START PRINTING */7 
OUT( SAH) =( A=9) ; 
ENABLE; 


END; 
END WRITESPRINTER; 
SELECTSDRIVE: PROCEDURE; 


SRR AR RR IR RR RB AR ROR AB ER OR ROR RRR SR AR OR AE OR ER IC AE EK OER OR ORR ERC A OE OR OR OR COR ORK / 
7* THIS SERVICE CALL SELECTS THE VIRTUAL FLOPPY DISK *7 


7* DRIVE TO BE USED FOR SUBSEQUENT FLOPPY DISK *K/ 
7* ACCESSES. */ 
7* ARGUMENTS: SA 
7* (1) FID = 12 */ 
7k (2) PARM = DRIVE NUMBER (0-7) */ 
7* VALUE: ERROR CODE */S 


A RRR RAR KK BRK RK RR BR RK RR RRR RRR RRB ER ORK KR KOK KKK ROR KK ZK 
C DRIVE] =( A=[ PARMO] ) ; 
7* VALIDATE DRIVE NUMBER */ 
IF (€A::8) !CyY THEN 
7* DRIVE NR > 7 - ERROR 6 */7 
DO; CERROR]=(A=6); RETURN; END; 
7* VALIDATE THAT DRIVE IN USE *¢4 
DE=.CTCTSDM]; A=C€ TASK]; CALL [C INDEXSI ; 
DE=HL; A=CDRIVE]; CALL [ INDEX] ; 
IF (A=<MCHL)) !CY THEN 
/* DRIVE NOT AVAIL - ERROR 10 */7 
DO; CERROR]=(A=10); RETURN; END; 
STACK= HL; 
CALL WRITESBUF; 
HL=STACK; 
7* UPDATE VDC BLOCK x*/ 
CDISKI]=CA=MCHL) 8&8 1FH); 
IF (A=M( HL) 8 40H) !ZERO THEN 7* READ ONLY */7 
CDRIVEJ=(CA=CDRIVE] \ 40H); /“* SET BIT 6 *7 
DE=.€DMTSBOE); A=C DISK]; CALL [ INDEX2] ; 
CALL EGET]; [( VDCSBOE] =( HL=BC) ; 
DE=.{€ DMTSEOE]; A=C€ DISK]: CALL [ INDEA2] ; 
CALL [GET]; ( VDCSEOE@] =( HL=BC) ; 
C VDCSDRIVE)=(€ A=C DRIVE) ) ; 
END SELECTSDRIVE; 


SETSDMA: PROCEDURE; 

SRR HRI RRR IRE RRR OR RR IR ER ER EE OE AER AG OR IR OR IR ER OR OR OR OR RR OR OR ORE EK OB OK 7 
7* THIS SERVICE CALL SETS THE ADDRESS OF THE 128 BYTE */ 
7* DMA BUFFER TO BE USED IN SUBSEQUENT VIRTUAL FLOPPY */ 


“7* DISK ACCESSES. */ 
“/* ARGUMENTS: */ 
7* (1) FID = 13 *7 
7* (2) PARM = DMA ADDRESS */ 
7* VALUE: ERROR CODE * 


A RRB KK KK KR KK KKK KR RB KK RK RR EE HK RR EK RR RR RE KR KZ 
A=(PARM@]-9; A=(C PARM1]--40H; 
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IF MINUS THEN 
/* OUT OF BOUNDS - ERROR 12 x7 
DO; CERROR]=(A=12); RETURN; END; 
[ VDCSDMA]=( HL={ PARM@]) ; 
END SETSDMA; 


SETSTRACK: PROCEDURE; 
SRR AAR IAA RAR RE RK RRR AR IRB RK I I AB EK KR RR RR OR RK IE KR EEK IE IK / 


“* THIS SERVICE CALL SETS THE TRACK NUMBER TO BE USED *- 


7* IN SUBSEQUENT VIRTUAL FLOPPY DISK ACCESSES. */ 

7* ARGUMENTS: */ 

7* (1) FID = 14 KS 

7/* (2) PARM = TRACK NUMBER */ 

7* VALUE: NONE */ 

VELL LLL SELES SE SSP SSE SE SPSS SESS SPSS SS SESE SSS SESS OSLSESS SSS Leg 
A= PARMO] ; 


beet A-:¢c) [CY THEN 
7* OUT OF BOUNDS - ERROR 12 x*~/ 
DO; [ERROR] =( A=12); RETURN; END; 
{ VDCSTRACK] =A; 
END SETSTRACK; 


SETSSECTOR: PROCEDURE; 
SARA RK ER RR EK RRR RK BR OK IK IB RIE IB IK A OK 2B OK AK RK OE OR RR OR RRR RIK 


7* THIS SERVICE CALL SETS THE SECTOR NUMBER TO BE */ 
“7* USED IN SUBSEQUENT VIRTUAL FLOPPY DISK ACCESSES. RS 
7* ARGUMENTS: */ 
Peels FID = 135 / 
7* (2) PARM = SECTOR NUMBER (1-26) */ 
7* VALUE: ERROR CODE */ 
SRRRRRRHR AAR KAR BAKA ER AE EK RE TE SOR OR OR OR AR IEA EK OR ERA KR OR OE EEE 7 
A={ PARNO] ; 


IF (A::27) !CY N (€A::@0) ZERO THEN 
“/* OUT OF BOUNDS - ERROR 12 */7 
DO; [ERROR] =(A=12); RETURN; END; 

{C VDCSSECTOR] =A; 

END SETSSECTOR; 


READSFLOPPY: PROCEDURE; 
SRA RIK AR RARE RR IE ARE ROK RK IR AR GRR IR OR OR OR RR ER ASR IR OK RS 2 OR OR OR AR OR AOR ROK / 


7* THIS SERICE CALL SIMULATES READING FROM A FLOPPY */ 
“* DISK. THE VIRTUAL DISK SECTOR AND TRACK SPECIFIED ¥*/ 


7* IN THE VDC BLOCK IS READ FROM THE SPECIFIED */ 
7* VIRTUAL DRIVE INTO A 128 BYTE BUFFER IN THE USER’S */ 
/* SWAP AREA. ye 
7/* ARGUMENTS: */ 
7* (1) FID =16 */ 
7* (2) PARM = NONE */ 
7 DRIVE, SECTOR, TRACK, AND DMA ADDRESS MUST */ 
vas HAVE BEEN PREVIOUSLY SET BY CALLS TO THE */ 
7k APPROPRIATE PROCEDURES. */ 
7* VALUE: ERROR CODE */ 
TEL TSS SLES SSS SSS SESS SSL SSS SPSS SL SPSS SSL SSS SOLS PSPS rt eh + + oe 
CALL MAP; 


IF (A={ERROR] \ A) !ZERO RETURN; 
DE=HL; HL={£ VDCSDMA]; CALL [ MOVBUF) ; 
END READSFLOPPY; 


WRITESFLOPPY: PROCEDURE; 

A RAR AAR RR KAR AR KR KR KR KEK RE RRR EK RRR KR ERK RK RK 
7* THIS SERVICE CALL SIMULATES WRITING TO A FLOPPY */ 
7* DISK. A 128 BYTE BUFFER IN THE USER SWAP AREA IS */ 
“* WRITTEN TO THE VIRTUAL TRACK, SECTOR, AND DRIVE %/ 


7* SPECIFIED IN THE VDC BLOCK. */ 
7* ARGUMENTS: */ 
7* (1) FID = 17 */ 
7* (2) PARM = NONE */ 
7 #* DRIVE, SECTOR, TRACK, AND DMA ADDRESS MUST */ 
7* HAVE BEEN PREVIOUSLY SPECIFIED BY CALLS TC */ 
is THE APPROPRIATE PROCEDURES. %/ 
7* VALUE: ERROR CODE *K/ 


ATR OR IRR RE RR EAB RR AR ICR BEB OK KOK OK AR AR OB AR OBR OE EOE OR AK ROR 2 ORK OAK OB OB OK OR BR OR OR KR EE OK ZH 
IF (A={VDCSDRIVE] 8 40H) !ZERO THEN “~* READ ONLY DISK *7 
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DO; 
[ ERROR] =( A=2); RETURN; 
END; 
GALL MAP; 
IF (A=CERROR] ‘N\ A) !ZERO RETURN; 
STACK=HL; DE=( HL=( VDCSDMA]); 
HL=STACK; CALL [ MOVBUF] ; 
C VDCSDRIVE]=( A=( VDCSDRIVE] \ 86H); 7* SET BIT 7 *~7 
END WRITESFLOPPY; 


EOF 





SL RRRRRRRKRKKRRBKRRRRBRRBRRBMRRRKBKKK RK K KK KKK KKK KK KKK KKKS 
SRRRRRKKKRKRK TERMINAL INTERFACE MODULE x*x**x******x*x*/ 
SRERREREEKRRAK KER KKB EHR RRR EE EE EEE ERE IR FREER 


es 


“7 

TERMINAL INTERFACE MODULE PROVIDES THE MTS x«/ 
INTERFACE WITH THE FOUR DISPLAY TERMINALS 7 
ATTACHED TO THE SYCOR 440 SYSTEM. THE MODULE IS */ 
SEPARATED INTO FIVE BASIC SUBMODULES. EACH */ 
SUBMODULE CONTAINS THE MACROS NECESSARY FOR */ 
LINKING WITHIN THE TERMINAL MODULE AND FOR K/ 
EXTERNAL MTS LINKAGE. */ 
a7 

€1) DATA DECLARATIONS */ 
THIS SUBMODULE PROVIDES ALL DECLARATIONS OF *7 

THE DATA STRUCTURES UTILIZED BY THE TERMINAL*/ 
MODULE. */ 

(2) UTILITY PROCEDURES a7 
THIS SUBMODULE CONTAINS THE BASIC UTILITY */ 
PROCEDURES WHICH PROVIDE COMMON REGISTER */ 
MANIPULATION AND PROCESSING REQUIRED BY */ 
MANY PROCEDURES THROUGHOUT THE REMAINDER ord 

OF THE TERMINAL INTERFACE MODULE. od 

* COMPARESPTRS * GETS INDEX */ 

* GETSVALUE * STORES VALUE RS 

* CONVERTSNUMBRSTOSASCI I */ 

* MOVESBYTES * SWAPSCURSOR */ 

€3) TERMINAL INTERFACE PRIMITIVES 7 
THIS SUBMODULE CONTAINS THE PROCEDURES WHICH*,/ 
PROVIDE THE BASIC TERMINAL INTERFACE 7 
FUNCTIONS. e7 

* BLANKSDISPLAY * GETSDISPLAYSADDR */ 

* CHECKSCURSOR * GETSTERMSSTATUS */ 

* SCROLLSDISPLAY * SENDSBEEP *S 

* SENDSCLICK * UPDATESCURSOR */ 

* GETSSTATUSSADDR */ 

€4) KEY PROCESSING PROCEDURES 7 
THIS SUBMODULE CONTAINS THE PROCEDURES WHICH*~ 
PROVIDE THE BASIC TERMINAL INPUT PROCESS ING. *~ 
THEY ARE CALLED TO PROCESS EACH KEY ENTERED *~7 

AT A TERMINAL. THEIR FUNCTIONS INCLUDE: */ 
CHECKING FOR AND CONVERTING LOWER TO UPPER *#/ 
CASE LETTERS IF REQUIRED; CHECKING FOR ANY #/ 

KEY COMMANDS (WHICH INCLUDES ALL LINE a7, 
EDITING); AND IF NOT A KEY COMMAND, 7 
DISPLAYING THE INPUT CHAR AT THE TERMINAL. */7 

* KEYSCOMMAND * TERMS INPUTSCNTL *7 

(5) TERMINAL INTERFACE SYSTEM FUNCTIONS 7 
THIS SUBMODULE CONTAINS THE PROCEDURES WHICH*/ 
PROVIDE THE PROCESSING REQUIRED TO INTERFACE*/ 

THE TERMINAL WITH THE REST OF THE MTS -7. 
MODULES. IT PROVIDES READING AND WRITING */ 

OF CHARACTERS FROM’TO THE TERMINALS; 7 
TERMINAL STATUS INFORMATION (E.G. WHETHER */ 
THERE’S INPUT AVAILABLE OR NOT); AND DISPLAY*/ 

OF STATUS AND MTS MESSAGES ON THE TERMINAL */ 
STATUS LINE. */ 

* BLINKSCURSORS * CLEARSSTATUSSLINE *7 

* TERMINALSSTATUS * READSTERMINAL 7 

* WRITESTERMINAL * STATUSSMSG #7 

*x MTSSMSG * SIZESMSG */ 


A RBERKK RRR RK RRA BRR RRR KK RB RR RR RK ER KE EB BRB ROR RR RRR RR BER 


SP RERRRRRRAKRKKKK KKK BK HK BM KBE EK IE OK AS OK AER AR AB OK ROR AB OR AR ROR ARR RR ORE 
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SRBRKRRRKKKKAKE TERMINAL DISPLAY DESIGN *****RRKRKRKK/ 


7% 


GENERAL FORMAT OF EACH TERMINAL DISPLAY 


1@ D 63! 
i t  ..... 4g2¢f 
126 BO =) PTR inn 
m920C—<C~ i PR 
ese C<~;<Cr*‘i‘i‘i 3191 
1320 ee Ce 383 | 
1384 BY 471 
eS 0hlUhmUmUmtt~—“—s—~—C~sM:~:CS 


ee ee ee ee ee ee ee ee ee es ee es es ee ee ee es ee ee ae ee ee ee es ee ee ee ee ee 


> > ce ee ee eee ee ca ee ee ee ee eee i eae 


Io VFD 39140 MS 47148 MSC 631 


— a ee ee ee ee ee em ee see eae eee ei 


WHERE 


VFD - VIRTUAL FLOPPY DISK STATUS DISPLAY; 


CONTAINS THE INFORMATION ASSOCIATED 
WITH THE CURRENT TERMINAL USER’S 
VIRTUAL FLOPPY DISK DRIVE AND DISK 
NUMBER ASSIGNMENTS. (SEE STATUSSMSG 
PROC FOR DETAILS) 

MS - DISPLAY OF THE MEMORY SIZE THE USER 
HAS REQUESTED. (SEE SIZESMSG PROC) 


MSG - DISPLAY AREA FOR MTS MESSAGES WHICH 


ARE DISPLAYED IN RESPONSE TO A 
SYSTEM OR SERVICE CALL TO MTS. 
(SEE MIS3MSG PROC) 


DISPLAY BUFFER 


7* THE DISPLAY BUFFER IS VIEWED AS A SINGLE 


BUFFER FROM © TO 512 BYTES IN LENGTH. THERE ARE 
FOUR DISPLAY BUFFER POINTERS WHICH PROVIDE THE 
CONTROL OF INPUT FROM AND OUTPUT TO THE TERMINAL 


14¢ 


DISPLAY. THESE POINTERS ARE: CURRENTSLINE: */ 
CURSOR; NEXTSCHAR; AND ENDSIBUFF. 7 
EACH POINTER UTILIZES TWO BYTES OF STORAGE TO */ 
ACCOMMODATE A RANGE IN VALUE FROM 90 TO Sila. 7 
IN ADDITION TO THESE POINTERS, THERE IS A */ 
TERMINAL STATUS BYTE, CALLED TERMSSTATUS, */ 
ASSOCIATED WITH EACH TERMINAL. IT IS SET TO <7 
ONE OF THREE VALUES: INPUTSWAITING; */ 
MISSCMDSREADY; IBUFFSEMPTY. THESE ARE THE Se 
PRIMARY DATA STRUCTURES PROVIDING TERMINAL I/70 7 
CONTROL. */ 

*K/ 
THE PRIMARY SYCOR HARDWARE CHARACTERISTIC WHICH */ 
AFFECTED THE MIS TERMINAL INTERFACE WAS THE a 
RELATIVELY SLOW MINI-DISK ACCESS TIMES. THIS HAS*/ 
A MAJOR IMPACT WHEN TRYING TO DESIGN AN CA 
INTERACTIVE TIMESHARED SYSTEM. IN ORDER TO */ 
PROVIDE REASONABLE INTERACTIVE RESPONSE TIMES */ 





TO USER ACTIONS, THE TERMINAL INTERFACE */ 
MODULE PROVIDES ALL LINE EDITING FEATURES FOR */ 
THE USER PRIOR TO TRANSFERING ANY DATA TO TdE */ 


USER’S PROGRAM. (SEE KEYSCOMMAND PROC) */ 
THE TERMINAL DISPLAY DESIGN UTILITZES Two */ 
SEPARATE BUFFERS TO PROVIDE THE USER WITH THE */ 
CAPABILITY OF CONTINUING TO ENTER DATA PRIOR */ 
TO THE USER’S PROGRAM BEING SWAPPED IN TO *7 
PROCESS THE PREVIOUS INPUT LINE. */ 
THE FIRST BUFFER IS CALLED THE ’CURRENT LINE’ */ 
AND CONTAINS THE INPUT DATA WHICH IS CURRENTLY */ 


BEING ENTERED BY THE USER. THE CURRENT LINE CAN *- 
RANGE FROM 9 TO 912 BYTES IN LENGTH. THIS IS THE*/ 
DATA THAT IS AFFECTED BY ANY LINE EDITING COMMAND*, 
ENTERED BY THE USER. */ 
THE SECOND BUFFER IS THE INPUT LINE OR BUFFER. */ 
THE CURRENT LINE BECOMES THE INPUT LINE WHENEVER *~ 
A CARRIAGE RETURN OR ERROR RESET (MTS COMMAND */ 
KEY? IS ENTERED. THIS ACTION ALSO ESTABLISHES */ 
A NEW CURRENT LINE. THE INPUT LINE CONTAINS THE */ 
THE DATA WHICH IS TRANSFERRED TO THE USER PROGRAIM*~ 
WHEN REQUESTED. THUS THERE CAN BE AN INPUT LINE *#/ 


AND A CURRENT LINE ESTABLISHED AT ONE TIME. <7. 
THE CURRENT CURSOR POSITION ALWAYS SPECIFIES */ 
WHERE THE NEXT CHARACTER WILL BE ENTERED, ON */ 
INPUT, AND WHERE THE NEXT CHARACTER WILL BE 7 
DISPLAYED DURING OUTPUT. */ 
*/ 

THE FOLLOWING IS AN EXAMPLE OF POINTER */ 
MANIPULATION DURING INPUT: 7 
INITIALIZATION OR CLEAR SCREEN CMD: 7 
ALL POINTERS ARE SET TO ZERO AND */ 
TERMSSTATUS = INPUT BUFFER EMPTY. <7 
USER ENTERS DATA - "SAMPLE INPUT DATA": */ 
CURRENTSLINE POINTS TO THE STARTING POSITION*/~ 

AND CURSOR ALWAYS POINTS TO THE NEXT Mya 
POSITION TO FILL. NOTE THAT AT THIS POINT *-¢ 
ONLY CURSOR HAS BEEN MODIFIED. FOR THE Na 
INPUT DATA ABOVE IT WOULD BE POINTING TO */ 
DISPLAY BUFFER POSITION 17. 7 
USER TERMINATES CURRENT LINE (I.E. ENTERS CR OR */ 
MTSSCMD): */ 
ENDSIBUFF IS SET TO CURRENT CURSOR POSITION. */ 
CURSOR IS SET TO LEFT MOST POSITION OF NEXT *- 

LINE ON DISPLAY. 7 
CURRENTSLINE IS SET TO NEW CURSOR POSITION. #7 
TERMSSTATUS IS SET TO INPUT WAITING. a 

7 

THE RESULTING POINTER POSITIONS ARE SHOWN FOR THE*/ 
SAMPLE INPUT DATA AND CR CHARACTERS ENTERED. 7 
(WHERE * = CURRENT CURSOR POSITION) */ 
*/ 

NC EIB 7 
mee nn re eee 7 
!SAMPLE INPUT DATA */ 

a nn vA 

as */ 

a a a nn rer rrr een 7 

GI, a 

v4 

THE SAMPLE INPUT DATA IS NOW AVAILABLE FOR THE */ 
USER’S PROGRAM WHEN IT‘S TIMESLICE COMES UP. */ 
THE NEXTSCHAR (NC) POINTER SPECIFIES THE NEXT */ 


CHARACTER TO BE READ AND RETURNED TO THE USER */ 
PROGRAM. WHEN NEXTSCHAR = ENDSIBUFF, A CARRIAGE */ 


RETURN (CR) IS RETURNED TO THE CALLING USER */ 
PROGRAM. *7, 
THERE ARE THREE OCCASIONS WHEN THE NESTSCHAR 7 
POINTER IS RESET EQUAL TO THE CURRENTSLINE */ 
POINTER: */ 

(1) FOR A CLEAR SCREEN COMMAND. 7, 


(2) WHEN READSTERMINAL PROC DETECTS THAT THE */ 
END OF THE INPUT BUFFER HAS BEEN REACHED. */ 
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7* (3) WHEN WRITESTERMINAL PROC OUTPUTS CHARACTERS *-/ 


1% TO THE TERMINAL FROM THE USER’S PROGRAM. */ 
VA */ 
7* THE OUTPUT OF DATA FROM THE USER’S PROGRAM TO 7 
/* THE TERMINAL RESULTS IN THE FOLLOWING: */ 
7* (€1) THE CHARACTER IS DISPLAYED AT THE CURRENT */ 
7% CURSOR POSITION. 7 
7* (2) THE CURSOR POSITION IS INCREMENTED. */ 
7* (3) THE CURRENTSLINE AND NEXTSCHAR POINTERS ARE xv 
S* SET EQUAL TO THE NEW CURSOR POSITION. ad 
7* (4) THE TERMINAL STATUS IS SET TO EMPTY. */ 
J */ 
Js */ 


/* ANOTHER DESIGN CONSIDERATION WAS THE REQUIREMENT x~ 
7* FOR THE TERMINAL MODULE TO PROVIDE A BLINKING */ 
7* CURSOR DISPLAY AT EACH TERMINAL. THIS REQUIRED x- 


7* SPECIAL PROCESSING TO ENSURE THAT THE CURSOR */ 
7* CHARACTER (@5FH) DID NOT GET LOST DURING THE */ 
7* CURSOR UPDATE AND MANIPULATION FUNCTIONS */ 


7* ACCOMPLISHED BY THE KEY PROCESSING AND SYSTEM */ 
7* FUNCTION SUBMODULES. CHECKSCURSOR PROC(PRIMITIVE x-~ 


7* SUBMODULE) PROVIDES THIS FUNCTION. */ 
7k */ 
7% */ 


7 RAR ABBR RAB OR RR AB OR ABR BR AB OR AR OR OB OR RB IR OR IR IR IB OB IB RB OR KOR AE OR OB OR OK ROR FB ROR BR OK AR ROK EK 
J ROB AR BRR RAR AR RR ABR ARB OB AB RB IB ROR OK RB RR RB OB RE OR OR OB ORR RR OR TB ROK OR OR AR AE OR ORK OR RK 


SRRRBRRR RR KR RRB RR BRK RRR RK RE RE RK RR OR RR BB ORK FE OK ERR EK ROKK EK EK / 


SREREK TERMINAL INTERFACE DATA DECLARATIONS ‘****%«%/ 
SRR RR ARR RK RRR OK RRR OK AR ROK OR RAR OK OR OR AR OK OR OK AK OR AR KB RK ROK RR KAS OK ORR OK OK ORE 7 


CMACRO IBUFFSEMPTY ‘@° 
(MACRO CURSORSCHAR ‘SFH’] 


A RAR ARE ARR ER BRE AR OR RAR AB EE REE OR EAE RE RE OB EE SAR AR ROK AR AR OK EE EE OE EZ 
SREREARAKE TERMINAL INTERFACE DECLARATIONS = Kx, 


7* ASCII - CONTAINS DATA FOR MATRIX CODE TO ASCII*~ 
7 #* CONVERS ION. */ 


DECLARE ASECII DATA (1EH, 1CH, 1BH, SDH, 5BH, 29H, 28H, (FH, 
26H, 3DH, 29H, 24H, 23H, 40H, 21H, 2AH, OAH, OCH, OBH, OAGH, 
ODH, 50H, 4FH, 15H, 55H, 09H, 64H, 52H, 40H, 57H, 51H, 49H, 
ODH,9,31H,9, 22H, 3AH, +CH, @ASH, 4AH, 48H, 47H, 46H, 440, 538, 
41H,4BH, OFFH, 30H, 20H, 9ASH, OA2H, 3SFH, 3EH, 3CH, 4DH, 4EH, 
42H,56H, 43H, 58H, SAH, OFFH, 

OF FH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, (FH, OFFH, OFFH, 
OFFH, OA4H, OF FH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, OAOH, 
ODH, OF FH, OFFH, 15H, OF FH, OFFH, OF FH, OFFH, OFFH, OFFH, 
OFFH, OFFH, OF FH, OFFH, OFFH, 09, OFFH, OF FH, OFFH, OASH, 
OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, 
20H, GAGH, OA2QH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, 
OA1H, OFFH, OFFH, OFFH, 

OF FH, OFFH, OFFH, SFH, OFFH, 7DH, (BH, 7FH, OFFH, 7EH, 39CH, 
QOA4+H, 60H, SEH, 7CH, OF FH, OFFH, OF FH, OFFH, OAGQH, ODH, 
10H, OFH, 15H, 15H, 19H, 14H, 12H,95, 17H, 11H,99, 60H, 
SEH, 7CH, 09, OF FH, OF FH, OCH, OASH, OAH, 08, 97 , 06, 04, 
13H, 01, OBH, OFFH, 7DH, 20H, OAGH, GA2H, OF FH, OFFH, OFFH, 
ODH, G@EH, 02, 16H, 03, 18H, 1AH, OFFH, 

39H, 36H, 37H, 20H, 2BH, 30H, 39H, (FH, 37H, 36H, 35H, 34H, 
33H, 32H, 31H, 38H, 36H, 35H, 34H, QAOH, ODH, 76H, OFH, 10H, 
T5H, 79H, (4H, 72H, 65H, (7H, 71H, 69H, 30H, 32H, 310, 09, 
27H, 3BH, 6CH, OASH, 6AH, 68H, 67H, 66H, 64H, 73H, 61H, OBH, 
OFFH, 30H, 20H, 9A3H, OA2H, 2FH, 2EH, 2CH, 6DH, 6EH, 62H, 
76H, 63H, 78H, 7AH, OF FH) ; 


PRR AAA AIR RE AR RR ER RRR TERRI TR TR RIE IR I RE RII / 
7* STATUSSBASE - START OF STATUS LINE AT EACH TERM */ 
7* DISPLAYSBASE - START OF DISPLAY LINES */ 
ESTE LS SEEPS SSO SSS SSS PS ESS S bet + St Sst Sb SS SS eS SS SS 2 re 


DECLARE STATUSSBASE DATA 
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(00H, 07H, 49H, 09H, 60H, OBH, OCOH, ODH) ; 


DECLARE DISPLAYSBASE DATA 


(40H, 07H, 80H, 09H, OCOH, OBH, OOH, OER) ;s 


SRERRKRKRERKRARRARRARRKRKARKAKRAKKRAHAKRAKKAAKRKAKKKARKKAKKRKKKKKKKK/ 
/* MITISSMESSAGE ~- DATA VECTOR CONTAINING ALL THE MTS *-v 


S* MESSAGES WHICH MAY BE DISPLAYED IN xv 
A THE MTS MSG FIELD OF THE STATUS *K/ 
7 LINE. Dra 
/* SIZESMESSAGE- DATA VECTOR CONTAINING THE TEXT */ 
S% PORTION OF THE SIZE MSG FIELD OF */S 
A# THE STATUS LINE. */ 


a OSCR ETLEREA REALE ERLE R RARER RELL ARRE RE 7 
DECLARE MISSMESSAGE DATA (° 


; INVALID CMD °*,”° DISK NOT AVAIL’,’ DISK IN USE °, 
: DISK NR ERROR’ ,' KEY ERROR *,”’ DRIVE LTR ERROR’, 
* PRINTER NOT RDY’,°’ HARDWARE ERROR ’,’ TASK DELETED ‘°, 


DRIVE NOT AVAIL") 
DECLARE SIZESMESSAGE DATA (’K MTS ’); 


ee £ FF CF CK CF KO OK OK OKCUKCUCU KC KC KCKCUK ORS 
/* THE NEXT FOUR DECLARATIONS PROVIDE THE POINTERS */ 
“* UTILIZED TO CONTROL THE INPUT/OUTPUT AT EACH */ 
/* TERMINAL. */ 
7/* CURSOR - SPECIFIES THE CURRENT ADDRESS WHERE THE ne 
Va CURSOR IS TO BE DISPLAYED. nv 
/* CURRENTSLINE - ADDRESS WHICH POINTS TO INITIAL BYTE *-~ 
S% OF CURRENT USER INPUT LINE. THIS LINE HAS xz 
Ya NOT YET RECEIVED A ’CR’ AND THUS IS NOT YET*/ 
7k CONSIDERED AN INPUT BUFFER. ra 
/* NEXTSCHAR —- POINTS TO NEXT CHAR TO BE PROCESSED FROM*, 
Yao THE INPUT BUFFER. AN INPUT IS DEFINED AS A */7 
S* STRING OF ASCII CHARACTERS (FROM 1 TO 3512) *v 
Va WHICH HAS BEEN TERMINATED BY A ‘CR’ OR */ 
we "MTSSCMD’ KEY BY THE USER. Se 
/* ENDSIBUFF ~- POINTS TO BYTE POSITION IN INPUT BUFFER *-~ 
S% WHERE ‘CR* OR ’MTSSCMD’ WAS RECEIVED. *S 
ee Ff | OFClhUCUKLCUCitC KC KC KC KC KK C<C KSC KC“ RSC KC KhlhlU FR hlURS 
DECLARE CURSOR (8) BYTE INITIAL(9,90,9,0,0,9,9,60); 
DECLARE CURRENTSLINE (8) BYTE INITIALC9,9,9,9,0,9,9,9); 
DECLARE NEXTSCHAR (8) BYTE INITIAL(90,9,9,9,9,9,¢@,9); 
DECLARE ENDSIBUFF (8) BYTE INITIAL(9,9,9,0,0,9,9,90); 


7* CAPITALIZE - SET TO ONE IF TERMINAL IN CAP MODE */ 


DECLARE CAPITALIZE (4) BYTE INITIAL (1,1,1,1); 


7* TERMSSTATUS - CONTAINS THE CURRENT STATUS OF */ 
#* EACH TERMINAL’S INPUT BUFFER, */ 
7K EITHER INPUT WAITING; */ 
7 MTS CMD READY; OR IBUFF EMPTY. */ 


DECLARE TERMSSTATUS (4) BYTE INITIAL (C IBUFFSEMPTYT] , 
C IBUFFSEMPTY] ,{ IBUFFSEMPTY]! ,C IBUFFSEMPTY]) ; 


7* SWAPSPOS -— FOR EACH TERMINAL THERE IS A ONE BYTE */ 
7 SAVE AREA WHICH IS USED DURING CURSOR */ 
7% BLINKING PROCESS ING */ 


DECLARE SWAPSPOS (4) BYTE INITIAL (( CURSORSCHAR] , 
[ CURSORSCHAR] , { CURSORSCHAR] , { CURSORSCHAR] ) ; 


EOF 
SRRBRAKKAA RBA ABA BA AER AE TB AB AE AR CE AR I I FE OR OB I OR OB AB ORB AB OR OR OR OE OK AR RAE / 


/*#**k* TERMINAL INTERFACE UTILITY PROCEDURES *#*****/ 
SARA IE RR EE AE AE IR A OR OR AE SE A IR IS IE OR A IR AE AS OR OR IR OS AR ISI OR SR ASR OR IBA IK OB OK OB KE EE 7 


[MACRO TRUE PORE: | 
{MACRO FALSE nO J 
[MACRO SWAPSPOS *LIFDH’ J 





COMPARESPTRS: PROCEDURE; 
S RRA ARK RRR ARK ABA RHR K ARK ARK RK RR RAR KR RK RR IKK RK RK K / 
7* COMPARES TWO POINTERS (2 BYTES EACH) TO DETERMINE*/ 


/* IF THEY ARE EQUAL. *K/ 
7* INPUT: DE - ADDRESS OF FIRST PTR */ 
SR HL - ADDRESS OF SECOND PTR */ 
“* OUTPUT: A - TRUE IF EQUAL, FALSE OTHERWISE. */ 
/* CALLED BY: KEYSCOMMAND; READSTERMIINAL; 7 
SA KRKRRAKRKRAKKRKARKARKRKKRKAKKAKKRAKKAKKKKAKK KKK RKKKKKRKRKKKKKKS 
CY=9; 
IF (A=MC( DE) --MCHL)) !ZERO THEN 
A=({ FALSE] 
ELSE 
DO; 


DE=DE+1; HL=HL+1; 
IF (A=M(DE)--MCHL)) !ZERO THEN 
A={ FALSE] 


END; 
END COMPARESPTRS ; 


CONVERTSNUMBRSTOSASCII: PROCEDURE; 
SREB BARA RB ERB ERE RB RE OB EE OE EK OB AE RIS AR AE OK EK OK OB OK ARE OB ORE ER RK / 


7* CONVERTS THE SPECIFIED NUMBER TO A DISPLAYABLE 7 


“Zk TWO DIGIT DECIMAL NUMBER (MAX VALUE IS 99). */ 
/* INPUT: <A —- NUMBER TO BE CONVERTED. ed 
/* OUTPUT: B - LEFT MOST DIGIT TO BE DISPLAYED. */ 
a = C - RIGHT MOST DIGIT TO BE DISPLAYED. = 
“* CALLED BY: SIZESMSG; STATUSSMSG; */ 
ELT STS LESS SPSS SESS SS SSS SSS SSS SLES SOLS SSS SS SSS SL tt + + + ia 
B=0; C=A; 
DO WHILE (A::10) PLUS; 
B=Btl; 
C=( A=C-19) ; 
END; 
C=( A=A+30H) ; 
B=( A=B+30H8) ; 


END CONVERTSNUMBRSTOSASCII; 


GETS INDEX: PROCEDURE; 

SP RRR ARAB BBE HB BRR AR RE BR OER RE OR EK EER OB EB EK ER OR RAR OB ARE EE AE KOE / 
7* USED TO GET THE INDEX INTO AN ADDRESS ARRAY BY  #/ 
7* COMPUTING THE OFFSET FROM A GIVEN BASE ADDRESS. *7 
Z* INPUT: A - OFFSET VALUE (NORMALLY THE TASK OR */ 


S* TERMINAL NUMBER). */ 
les HL —- BASE ADDRESS 7 
“* QUTPUT: DE- ARRAY OFFSET */ 
7% HL- ARRAY OFFSET (HL=DE) */ 
S# BC- COMPUTED OFFSET a 
“/* CALLED BY: SCROLLSDISPLAY; UPDATESCURSOR; */ 
A * KEYSCOMMAND; TERMS INPUTSCNTL; *7 
1% READSTERMINAL; WRITESTERMI NAL */ 
SRRRKRK RK KK RKB RK KR KKK RK ROKR RK RK KR KR KK KAR KAKA RK KAKRKRAKRKKAKK Z 
CY=90; B=98; 


C=(A=<< A); 7* SET ADDRESS OFFSET TO OFFSET*2 */ 
HL=HL+BC; DE=HL; 
END GETS INDEX; 


GETSVALUE: PROCEDURE; 
SRERERKRKKK KKK KKK KK KK ABBR BR KR KK BRK RRR RCRA RR AAR K KZ 


/* GETS A 2 BYTE VALUE FROM MEMORY. */ 
7* INPUT: DE - ADDRESS OF 2 BYTE VECTOR; THE +7 
S* CONTENTS ARE TO BE STORED iN THE */ 
a. HL REGISTER. */ 
“* OUTPUT: HL - CONTENTS OF 2 BYTE VECTOR Vd 
A # DE - ADDRESS OF THE HIGH ORDER BYTE */ 


/* CALLED BY: SCROLLSDISPLAY; UPDATESCURSOR; */ 
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7* KEYSCOMMAND; READSTERMINAL; */ 
7% WRITESTERMINAL; GETSDISPLAYSADDR */ 
SP RERERKKKRKER EK KEKE AKER KKK KEKE KK KK KKK KEK KKK KR RE KE 
L=(A=MC(DE)); DE=DE+1; H=(A=M(DE)) ; 
END GETSVALUE; 


STORESVALUE: PROCEDURE; 
SP RRRRRRRRKK KKK KKK KK KKK KKK KKK HK KKK KKK ABHK KKK KK KKK 


7* STORE A 2 BYTE VALUE INTO MEMORY. */ 
7* INPUT: HL - VALUE TO BE STORED INTO MEMORY */ 
S# DE - ADDRESS OF HIGH ORDER BYTE */ 
7* CALLED BY: UPDATESCURSOR; KEYSCOMMAND; */ 
7 READSTERMINAL; WRITESTERMINAL; / 
7% GETSDISPLAYSADDR; */ 


SKRRRERKKAKK ARAB KAA BRAK KKB EK BEE KK RE KR EK RE HE BE KZ 
M( DE) =(A=H); DE=DE-1; M( DE) =(A=L); 
END STORESVALUE; 


MOVESBYTES: PROCEDURE; 
SRRRKRK KARA KBB RRA KBAR AAA EB IE IR ETE EA A TR OR ORE EK EE KE / 


/* MOVES BYTES OF DATA FROM ONE MEMORY LOCATION TO x*/ 


/7* ANOTHER. */ 
7* INPUT: BC - NUMBER OF BYTE TO BE MOVED. se 
S# DE - STARTING MEMORY ADDRESS TO MOVE */ 
7* BYTES TO (DESTINATION). */ 
S# HL - STARTING MEMORY ADDRESS TO MOVE */ 
7% BYTES FROM (SOURCE). */ 
7#* CALLED BY: SIZESMSG; MTSSMSG; */ 
SERRERREKAERAEK RR ERK AKA KK ARK KERR ERR ERK REE KEKE REE KK 
REPEAT ; 


M( DE) =( A= MC HL) ) ; 

DE=DE+1; HL=HL+1; 

BC=BC-1; A=9; 
UNTIL (A::B) ZERO 8 (A: :C) ZERO; 
END MOVESBYTES; 


SWAPSCURSOR: PROCEDURE; 
SKRRRRRREKKERK KKK KEK KEK KKK KKK BKK KARR RK KK ERR KBR BEB / 


7* SWAP THE SPECIFIED TERMINAL’S CURRENT CURSOR */ 
7* POSITION CHAR WITH THE SWAPSPOS CHAR. ¥/7 
7* INPUT: A - TERMINAL NUMBER */ 
Var HL - DISPLAY ADDRESS OF CURSOR POSITION */ 
/* CALLED BY: BLINKSCURSORS; CHECKSCURSOR; */ 
SKRARERERERRAA KEKE AKER ER EEE RRERERRERREA AR RAE ABE RRR RR KE 

DE= HL; /* SAVE DISPLAY ADDRESS x7 

B=0; C=A;3 

HL=(€ SWAPSPOS]+BC; 7* GET SWAP ADDRESS */ 

B= ( A=M( DE) >); /* SWAP Pa 

M( DE) =( A= MC HL) ) ; 

M( HL) =( A=B) ; 


END SWAPSCURSOR; 


EOF 

SRRRRRERERR RRR ERE ERE RRR EEE KE EERE RE KERR BRK REAR BR BERK KBE / 
SRAKRKKRAKK TERMINAL INTERFACE PRIMITIVES  *#KKRRRRARAKZ 
SKRRRERR ERR RR KERR ERR RRR RAR RR RE ARR RR RA AB EE AB EB RA / 


{MACRO TRUE Orr Hs 
(MACRO FALSE *@’ J 
[MACRO BLANK '20H’ | 
(MACRO IBUFFSEMPTY nO: J 
[MACRO DISPLAYS8SIZE °"§12’ | 
[MACRO TERMSPORT "O3FH’ ] 
{MACRO CURSORSCHAR '@OSFH' ] 


A KRKREKRK KKK KKH K KR ERR RRB RB ERR RAR BKK KR BRB RAKE RE / 
SERKEREKKAKEK INTERNAL LINKAGE MACROS = *#*KREKREAKAKKKKK 7 





{INT TB] (TB := 1090H] 


{MACRO STATUSSBASE ‘(HEX TB + 01064]’) 
CMACRO DISPLAYSBASE ’CHEX TB + 0111H]"] 
CMACRO CURSOR *CHEX TB + 01D5H)"] 
CMACRO CURRENTSLINE ’CHEX TB + 91DDHI]°) 
{MACRO NEXTSCHAR "CHEX TB + O1ESH)°) 
[MACRO ENDSIBUFF *CHEX TB + O1EDH)]’) 
CMACRO TERMSSTATUS ’CHEX TB + 91F9H)]’] 
(MACRO GETSINDEX *CHEX TB + 624CH]"] 
[MACRO GETSVALUE *CHEX TB + 90259H)] '] 
(MACRO STORESVALUE ‘°CHEX TB + 9262H]"] 
(MACRO SWAPSCURSOR ‘CHEX TB + 927EH) ’] 


BLANKSDISPLAY: PROCEDURE; 
SRRRERE RRR KRRE KEK BR EERE RR RRR REE RE EER ERE 


7/* PLACES BLANKS INTO THE INDICATED AREA OF A */ 
7* TERMINAL DISPLAY. 77 
7* INPUT: BC - STARTING ADDRESS CRANGE @ TO 511) */ 
xk DE - NUMBER OF BYTES TO SET TO BLANK 7 
ak HL - BASE ADDRESS See 
/* CALLED BY: KE YSCOMMAND; SCROLLSDISPLAY; / 
7% CLEARSSTATUSSLINE; MYSSMSCG; */ 
IESE LESS LESS SSE SS SLSS SSP SS SPSS SOS PS LPS EDEL OPED SS St SS ia 
HL=HL+BC; 
REPEAT; 
MC HL)=(€ A= CBLANK]) ; 
HL=HL+1; 


DE=DE-1; A=9; 
UNTIL (A?:D) ZERO & (A::E) ZERO; 
END BLANKSDISPLAY; 


GETSDISPLAYSADDR: PROCEDURE; 
SRRRRRRRK ABR ARKBBG R BRERKR B R R E K RRR E BRR RRR RRRE Z 


7* GETS A MEMORY ADDRESS IN THE DISPLAY BUFFER USING*~ 
7* THE DISPLAY BUFFER PTR AS OFFSET FROM THE DISPLAY*/ 


/* BASE ADDRESS. */ 
“/* INPUT: BC - TERMINAL NUMBER OFFSET. */ 
Sk DE - ADDRESS OF DISPLAY BUFFER PTR */ 
/* OUTPUT: HL —- MEMORY ADDRESS IN DISPLAY BUFFER. / 
8 BC - DISPLAY PTR VALUE. */ 
“/* CALLED BY: TERMS INPUTSCNTL; KEYSCOMMAND; */ 
Sk BLINKSCURSORS; READSTERMINAL; */ 
/* WRITESTERMINAL; *K/ 


AS RRR RBHK RBH RAK RRR RB RRR ER ER RRR BE KB RRR KR RRR RRR BKK BRAK ARK KZ 


DECLARE PTR(2) BYTE; 
CALL (GETSVALUE] ; 


PTR= HL; /* SAVE DISPLAY PTR VALUE “7 
DE=( HL=( DISPLAYSBASE)]+BC) ;“*GETSVALUE PARAMETER *~ 
BC=( HL=PTR) ; /* GET DISPLAY PTR VALUE */ 
CALL CGETSVALUE]; “* GET DISPLAY BASE _/ 
HL=HL+BC; /* GET DISPLAY ADDRESS */ 


END GETSDISPLAYSADDR; 


CHECKSCURSOR: PROCEDURE; 

SRBREEKRERERREREERERERERK BERK RRRR KK BK BE BER BERK RR RRR ERR RB RR 
7* PRIOR TO CHANGING THE CURRENT CURSOR POSITION OR * 7 
7* DISPLAYING A CHARACTER AT THE CURRENT CURSOR POS, */ 
7* A CHECK IS ALWAYS MADE TO ENSURE THAT THE */ 
7* CURRENT DISPLAY IS A DATA CHARACTER AND NOT THE */ 
7* CURSOR ITSELF (I.E. SFH). IF IT IS THE CURSOR */ 


7* A SWAP IS MADE. 7 
7* INPUT: A - TERMINAL NUMBER * / 
“*® CALLED BY: KEYSCOMMAND; TERMS INPUTSCNTL; */ 
# WRITESTERMINAL; */ 


S RRA RAK RK KR RR RK RK RRR EK BR RE RK RRR OK KR RRR OR RK BE KK EK KZ 
DECLARE T BYTE; 
T=A; HL=C€C CURSOR] ; 
CALL (GETSINDEX] ; 





CALL GETSDISPLAYSADDR; 
IF (A=MCHL); A::{CURSORSCHAR]) ZERO THEN 
DO; 
A=T; 
CALL [CSWAPSCURSOR] ; 
END; 
END CHECKSCURSOR; 


GETSSTATUSSADDR: PROCEDURE; 
SRRARRARR ERR RE AEA EE EE ER AE RR IER IEE RE EE OE OR A OE OR ARK RR EE EEK / 


7* GETS THE BASE ADDRESS OF THE STATUS LINE FOR THE */ 


7* SPECIFIED TERMINAL. */ 
/* INPUT: A -—- TERMINAL NUMBER */ 
/* OUTPUT: HL ~- MEMORY ADDRESS OF FIRST BYTE IN */ 
7 STATUS LINE. */S 
7* CALLED BY: CLEARSSTATUSSLINE; MTSSMSG; *7 
7% SIZESMSG; STATUSSMSG; 7 


SREKKKKAAK KKB KKK BRK KKK EK KKB BB RE KR EK RE RK ERE EZ 
HL=( STATUSSBASE] ; 
CALL (GETS INDEX] ; 
CALL ( CETSVALUE] ; 
END GETSSTATUSSADDR; 


GETSTERMNSSTATUS: PROCEDURE; 
SRRAKRKRAKEKKKERKRAK KKK BKK KKK RK AAR RRR EER RRR K EKER RE / 


7* RETRIEVES THE TERMINAL STATUS FOR THE INDICATED */ 


7* TERMINAL. TERMINAL STATUS SPECIFIES WHETHER £7 
7* OR NOT THERE 1S AN INPUT BUFFER OR MTS COMMAND 7 
7* READY FOR PROCESSING FOR THAT TERMINAL. */ 
7Z* INPUT: <A - TERMINAL NUMBER */ 
7* OUTPUT: A - TERMINAL STATUS */ 
7* CALLED BY: KEYSCOMMAND; TERMINALSSTATUS; <7 
SR UPDATESCURSOR; MONITOR (MON MOD); 7 
ee oe eK RK RR RH RRR RR RRR RR ERE EE TE RE EE RE EK EE KZ 

B=90@; C=A; 

HL=( TERMSSTATUS]+BC; 

A=M( HL) ; 


END GETSTERMSSTATUS ; 


SCROLLSDISPLAY: PROCEDURE; 
ADHERE RRR KER KK KEK RR AK RR AR EK RE IR RK RR RE ERR RK Z 
7* SCROLLS THE DISPLAY FOR THE INDICATED TERMINAL. */7 
7* INPUT: A - TERMINAL NUMBER */ 
7* CALLED BY: UPDATESCURSOR */ 
VEST CSt ESTES SOSP SS SSS SSS DLS SL bee tS ts tS tS ss SS SS SS SS SS 

DECLARE TERM BYTE; 

DECLARE POS(2) BYTE; 

TERM=A; HL={ DISPLAYSBASE] ; 

CALL ( GETS INDEX} ; 

CALL (GETSVALUE]; DE=HL; “*DE=DISPLAY BASE ADDR *7 


POS=HL; /* SAVE DISPLAY BASE ADDRESS*/ 
BC=64; 

BC= ( HL=HL+BC) ; /* BC=DISPLAY BASE + 64 */ 
HL=448; 

REPEAT; 


M( DE) =( A=MC BC) ) ; 

BC=BC+!; DE=DEr!; 

HL=HL-1; A=9; 
UNTIL (A::H) ZERO 8 (A::L) ZERO; 
BC=448; 7* SETUP PARAMETERS FOR */ 
DE=64; HL=POS; 7*  BLANKSDISPLAY PROC 7 
CALL BLANKSDISPLAY; 
END SCROLLSDISPLAY; 


SENDSBEEP: PROCEDURE; 
LARRABEE ER ERIE REE HE EERE EBA TE AE AE AR AR EB REE AE EZ 


7* SENDS A BEEP TO THE INDICATED TERMINAL. */ 
/* THE FORM OF THE TERMINAL ALERT CONTROL BYTE IS: */7 
L# TT 6 3&3: + 3 2 1 9 K/ 
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S% [ASICS IAZIC2ZIALIC1LIAQICO} */ 
SR mmm mm mn mn ae — = */ 
/%* WHERE: */ 
7 ACI) = 1; GENERATES AN ALARM AT STATION I. xv 
A® C(I) = 1; GENERATES A CLICK AT STATION I. <7 
7* INPUT: A —- TERMINAL NUMBER */ 
7* CALLED BY: KEYSCOMMAND; */ 
A RRR ARR RR BR RR RR RRR EER EEK EE OREO RRR ERROR ROKK SEES / 

H=0; L=A; 

IF (A::@) PLUS & (A::4) MINUS THEN 

DO CASE HL; 


OUTCC TERMSPORT] ) =( A=2) ; 
OUT( Ll TERMSPORT] ) =( A=8) ; 
OUT( CT TERMSPORT] ) =( A=208) ; 
OUT( f TERMSPORT] ) = ( A=80H) ; 
END; 

END SENDSBEEP ; 


SENDSCLICK: PROCEDURE; 
SP RAR KBR BRB RE RE RK RRR RRR RUE ERR RIE AE ER SER KEE EK / 


7* SENDS A CLICK TO THE INDICATED TERMINAL. SEE 7 
7* SENDSBEEP PROC FOR DEFINITION OF TERMINAL ALERT x/ 
7* CONTROL BYTE. */ 
7* INPUT: A —- TERMINAL NUMBER */ 
7* CALLED BY: UPDATESCURSOR */ 
A RR RR RR RR RRR RR BR OK OK OR RR OK OK OER RR HE EKER ROR RE ROKK OK ROKK KEK KKK KK/ 

H=0; L=A;3 

IF (A::0) PLUS 8&8 (A::4) MINUS THEN 

DO CASE HL; 


OUT( [ TERMSPORT] ) =( A=1); 
OUT( [ TERMSPORT] ) =( A=4) ; 
OUT( Cf TERMSPORT] ) =( A= 168) ; 
OUTC(C CT TERMSPORT] ) = ( A=408) ;: 
END; 

END SENDSCLICK; 


UPDATESCURSOR: PROCEDURE; 

A RRREK RAR KKK BKK KK BE IER RE RE BB RK KR OK RRR RR RRR OR EK KR RK / 
7* CONTROLS THE UPDATING OF THE CURSOR POSITION. THE*~ 
7* PRIMARY CONCERN IS TO CHECK FOR SCROLLING PRIOR */ 
7* TO UPDATING THE CURSOR. SCROLLING IS NOT ALLOWED */ 
7* IF SCROLLING WILL DESTROY ANY INPUT DATA NOT YET x*/ 


7* PROCESSED. */ 
7* SUBPROCEDURES: CHECKSSCROLLSLOCKOUT 7 
aes UPDATESDISPLAYSPTRS */ 
7k INPUT: A - TERMINAL NUMBER */ 
7% HL - VALUE TO WHICH CURSOR POSITION IS x*/ 
7 TO. BE. SET. -7, 
/* CALLED BY: KEYSCOMMAND; TERMS INPUTSCNTL; *“/ 
S# WRITESTERMINAL; */ 


A RRR RRA RK KBR KA ERB EE EEK RK RR ER OK OR EK RRR RR ER RR EK RR KZ 
DECLARE T BYTE; 
DECLARE POS(2) BYTE; 


CHECKSSCROLLSLOCKOUT: PROCEDURE: 
SRR RRR RR ROR ER OR OR OR FOR ER ER ACR ER EK AR RR RR OR KOK OR EK / 
7* CHECKS TO SEE IF THERE IS AN INPUT BUFFER */ 
7* READY. IF SO, CHECKS TO SEE IF SCROLLING WILL*/ 
/* DESTROY INPOT BUFFER. IF SO, RETURN TRUE, x7 
7* ELSE RETURN FALSE. “7 
/* QUTPUT: A —- TRUE IF SCROLLING IS LOCKED OUT x7 
A RR RRR RRR RRR RRR RK RR RB KR RK RRR RK RR RR RR RR RK RAK RR KK ZH 
A=T; 
CALL GETSTERMSSTATUS ; 
IF (A=A-C€ IBUFFSEMPTY]) ?ZERO THEN 
DO; /%* CHECK NEXTSCHAR PTR */ 
A=T; HL=( NEXTSCHAR] ; 
CALL [GETSINDEX] ;“* GET NEXTSCHAR OFFSET*Z 
CALL ([GETSVALUE]; “* GET NEXTSCHAR VALUE*/ 
BC= ~-64; CY=9; 





IF (HL=HL+BC) CY THEN “* SCROLL OK */ 


A=( FALSE] 
ELSE 7* SCROLL LOCKEDOUT */ 
A=( TRUE] ; 
END 
ELSE 7* NO INPUT BUFFER, SCROLL OK 7 
A=( FALSE} ; 


END CHECKSSCROLLSLOCKOUT; 


UPDATESDISPLAYSPTRS: PROCEDURE; 
S RRR RRR RRR RK RE KE BKK RK RRR EK RRR KER RRR KK KR KZ 


/*® UPDATES ALL DISPLAY PTRS TO REFLECT THE */ 
7* SCROLLING OF THE DISPLAY. USES SETSPTR TO */ 
/* DECREMENT AND STORE THE POINTER VALUES. */ 
“* SUBPROCEDURE: SETSPTR; */ 


he SS tS SS SS SSS SS SPSS SPS tt PSS SS PS SSS TSS SSS SS SS SS Soe 


SETSPTR: PROCEDURE; 
IETS T PETE LE LE LP LO SPSL PSPSPS OSS SO SSCSSS SSS SPSL SSS OG 
“* SETS THE SPECIFIED PTR TO PTR-64, AND */ 
/* STORES THE RESULT. */ 
“7* INPUT: DE - ADDRESS OF PTR “7 
EL ee TLE LESS SLES SSCL ESP SO SoOSSOSL LSD S StS + Sb + oe 

CALL (GETSVALUE]I ; 

BC=-64%; HL=HL+BC; 

CALL (STORESVALUE]) ; 

END SETSPTR; 


S RRR RRR KKK RK RR RE RK KK IR RK EK RK EE RK BERK / 
/* START OF UPDATESDISPLAYSPTRS PROCESSING */ 
SRR RRR RRR EE RK RR RAR CE ERK BE AR ER RR CE RE AR AR EO EE 7 


7* SET CURSOR TO LEFT MARGIN OF 8&TH LINE*/ 
7* ON DISPLAY. */ 
A=T; HL=(CURSOR] ; 
CALL (GETSINDEX] ; 
HL=446; DE=DE+1; 
CALL [STORESVALUE] ; 
/* SET NEXTSCHAR = NEXTSCHAR - 64 */ 
DE=( HL=( NEXTSCHARI +BC) ; 
CALL SETSPTR; 
7* SET CURRENTSLINE = CURRENTSLINE - 64 */7 
A=T; HL=(CURRENTSLINE] ; 
CALL (GETS INDEX] ; 
CALL SETSPTR; 
/* SET ENDSIBUFF = ENDSIBUFF - 64 */ 
A=T; HL=C ENDSIBUFF] ; 
CALL (GETS INDEX] ; 
CALL SETSPTR; 
END UPDATESDISPLAYSPTRS ; 


A RRRKK RRR KR RRR RRR KR RR RK BRK BR BER RE RR RR KR KER KARR KZ 


“* START OF UPDATESCURSOR PROCESS ING */ 
A RRR RRR RK RRR ERR RR RR RE RE RK AR RR OB AK ROR OR OB OR ORE OR RR ER KK 


T=A; /* SAVE INPUT TERMINAL NUMBER */ 
POS= HL; /* SAVE INPUT CURSOR POSITION 7 
BC= -(DISPLAYSSIZE]; CY=9; 
IF (HL=HL+BC) Cy THEN /* SCROLLING REQUIRED */ 
DO; 
CALL CHECKSSCROLLSLOCKOUT; 
IF (A=>>A) CY THEN /* SCROLLING LOCKED OUT x*/ 
DO; 
A=T; 
CALL SENDSCLICK; 
END 
ELSE /* SCROLLING IS OK a7 
DO; 
A=T; 
CALL SCROLLSDISPLAY; 
CALL UPDATESDISPLAYSPTRS ; 
END; 


156 





ELSE 


7* NO SCROLLING REQUIRED; 


UPDATE CURSOR */ 


DO; 

A=T; HL={CURSOR] ; 

CALL [GETSINDEX) ; “* GET CURSOR PTR ADDR x*/ 
HL=POS; 7* SETUP (CSTORESVALUE] PARAMETERS Sea 
DE=DE+1; 

CALL [(STORESVALUE]; “* UPDATE CURSOR PTR 7 


END; 


END UPDATESCURSOR; 


EOF 


ORR RAR RAR OBR RE AR OR OBR AR OR RRR AR RAB RE AB A OR ER RR ORB OE OR RR OE SEE EE OE EK EEK KZ 


SRAKKKKAK TERMINAL KEY PROCESSING PROCEDURES 


RRAKRARK/ 


A RRRRRARRAR RAR BRR BR RR RR BR RO EE OR EK ORO OR ORR A OR OR RAR RO OR OE OR OR ROR 8 OK OR BR EK / 


( MACRO 
{ MACRO 
C MACRO 
( MACRO 
C MACRO 
[ MACRO 
[ MACRO 


TRUE 

FALSE 

BLANK 
CURSORSCHAR 
INPUTSWAITING 
MISSCMDS READY 
IBUFFSEMPTY 


OF FH’ ] 
ay ] 
"20H’ | 
"SFH’ J] 
*OFFH’ ] 
°OF OH’ ] 
"9" ] 


A RRRERRRBRRERKAK RRR RK RRR ERK RHKRBA RRR KK ARK ARAB BRR KR KK RK KKK / 


SRRRERARRBRKK 


{ MACRO 
C MACRO 
{ MACRO 
[ MACRO 
[ MACRO 
{ MACRO 
C MACRO 
{ MACRO 
[ MACRO 
{ MACRO 


MTS KEY COMMAND 


MTSSCMD 

CR 

CHARS DELETE 
LINESDELETE 
CAPITAL 
CURSORSLEFT 
CURSORSRIGHT 
CLEARSSCREEN 
ENTER 
RSTSCMD 


MACROS 


ARR RAR OR OR AR ROR OR AR OR ROR ROK ZH 


*@AOH’ ] 
"@DH’ | 
"OCFH’ ] 
"@9195H’ ] 
"OA1H’ ] 
*@A2H’ ] 
°@A3SH’ ] 
"OA4H’ J 
*@A5SH' ] 
"@1EH’ ] 


A RAR AR RE AR AR IE IR IE IR OR OR ER OB OR OE OE OE OFS OR IE IR IE IE ROR FE RR IE IE OE TE IRR I OTR RR OB RRR ORE RR ROK ZK 


SRRKARK 


CINT GB TB] 


(C MACRO 


{ MACRO 
{ MACRO 
( MACRO 
{ MACRO 
[ MACRO 
[ MACRO 
C MACRO 
{ MACRO 


[ MACRO 
[ MACRO 
[ MACRO 
[ MACRO 


[MACRO 
[ MACRO 
C MACRO 
C MACRO 
{ MACRO 
[ MACRO 


INTERNAL AND EXTERNAL LINKAGE MACROS 


CGB := 9] (TB 
TCTSSTATUS *C HEX GB 
ASCII *CHEX TB 
DISPLAYSBASE "C HEX TB 
CURSOR "CHEX TB 
CURRENTSLINE °C HEX TB 
NEXTSCHAR "CHEX TB 
ENDS I BUFF *C HEX TB 
CAPITALIZE "CHEX TB 
SWAPSPOS *C HEX TB 
COMPARESPTRS Peas TS 
GETS INDEX °C HEX TB 
GETS VALUE "C HEX TB 
STORES VALUE esl dy. Ces 
BLANKSDISPLAY "CHEX TB 
GETSDISPLAYSADDR 'CHEX TB 
CHECKSCURSOR "CT HEX TB 
GETSTERMSSTATUS ‘{ HEX TE 
SENDSBEEP 7L HEX TS 
UPDATESCURSOR "CHEX TS 


KEYSCOMMAND: PROCEDURE; 
SRR RK HERE EER EER RE EEE EEE BE EE EE EAA HEE EAE EZ 


KERARKAK SZ 


>= 1000H] 


-P 


3E865H) ° J 


0003H] ° ] 
0111H)°) 
01D5H] °] 
01DDH)’ ] 
91LESH]’ ] 
81EDH)’ J 
O1LFSH) 7] 
O@1FDH)]’] 


t+++t+¢ ++ 


@213H] °] 
@24CH] ’] 
0259H)]"] 
9262H] ’] 


++++ 


92A3H]°] 
02B7H)’ ] 
92D0H)’ ] 
O2ZF9H]’ ] 
O933EH]’ ] 
Q@3C2H)]° ] 


+++++t 
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“* 


CHECKS FOR A TERMINAL KEY COMMAND FOR EVERY KEY *-~ 


INTERRUPT RECEIVED. */ 
KEY COMMANDS ARE: */ 
CMD KEY RESULT */ 

eo i en */ 

MTS cMD ERROR RESET SENDS A COMMAND TO xv 

MTS FOR PROCESSING. x*/ 

CR NEW LINE; TERMINATES THE */ 

ENTER; SHIFT CURRENT LINE AND */ 

CR; I“0 CTL M; ESTABLISHES IT AS */ 

THE CURRENT INPUT */ 

BUFFER. */ 

CHAR DELETE BACK SPACE DELETES THE LAST */ 
CHAR ENTERED. */ 

LINE DELETE NEAT FMAT DELETES THE CURRENT */ 
LINE. */ 

CAPTIALIZE rs -C FLIP“FLOP USED TO */ 
SET OR CLEAR THE */ 

TERMINAL INPUT MODE */ 

TO UPPER OR LOWER */ 

CASE LETTERS. */ 

CLEAR SCREEN FS $ CLEARS THE 312 CHAR */ 
DISPLAY BUFFER. */ 

CURSOR LEFT oe MOVES CURSOR POS */ 
ONE POSITION TO THE x*/ 

LEFT. */ 

CURSOR RIGHT ==? MOVES CURSOR POS */ 
ONE POSITION TO THE */ 

RIGHT. */ 

RST CMD SHIFT RS EXECUTE A RST 7 K/ 
INSTRUCTION. FOR */ 

USE WITH CP/M DDT. x*/ 

SUBPROCEDURES: ACCEPTSINPUT; CHECKSLEFTSMARGIN; *-/ 


DELETESCHAR; CLEARSPTRS; MTSSCMD; x*/ 

TERMINATESCL; CARRIAGESRETURN ; */ 

CHARSDELETE; LINESDELETE; CAPITAL; */ 

CLEARSSCREEN; CURSORSLEFT; */ 

CURSORSRIGHT; CHECKSCASE; RSTSCMD; */ 

INPUT: A - TERMINAL NUMBER */ 
C - ASCII CHAR RECEIVED */ 

OUTPUT: A ~ TRUE IF CHAR = KEY COMMAND */ 
CALLED BY: TERMS INPUTSCNTL; */ 


7 KBR KRKRAR RRR KR KARR AK BAK ARK K ROKK HK RKB RK KR A KR RAR KKK AKER KK Z 


DECLARE (CHAR,T) BYTE; 
DECLARE RESPONSE BYTE; 


ACCEPTSINPUT: PROCEDURE; 
A RRR RAR ROR AR AR ARK AR ARK ARK AR OK BR OB AB OR RR OB OE A OE OR OR RR AR OK OB OK OB OE BE OK OK KZ 
/* CHECKS THE TERMINAL’S CURRENT STATUS TO KS 
“* DETERMINE IF THIS NEW INPUT BUFFER SHOULD BE */ 
/* ACCEPTED. IF SO, RETURNS TRUE, ELSE FALSE. 4/7 
“* OUTPUT: A —- TRUE IS INPUT CAN BE ACCEPTED. */ 
7 HL - IF A IS TRUE THEN EL CONTAINS */ 
oR THE ADDRESS OF TERMSSTATUS. */ 
ARR RRR RRR RK RR RR ARR OK RR OR OR OR AR OR OR AB OR OK OB ORK OR IR OR RR OR ARK ARO EER RR 7 
A=T; CALL (GETSTERMSSTATUS J ; 
IF (A: :C IBUFFSEMPTY]) !ZERO THEN 
DO; “* INPUT BUFFER HAS NOT YET BEEN */ 
/* PROCESSED; DO NOT ACCEPT NEW BUFFER*/ 
A=T; CALL CSENDSBEEP];: 
A=( FALSE] ; 
END 
ELSE 
A=( TRUE] ; 
END ACCEPTSINPUT; 


CHECKSLEFTSMARGIN: PROCEDURE; 
ARR RRR RRR RK KR RK KK OR OE OR OK OR OK OK OR CK OR OB OR RAR OK OR OR ROR OR OBR OR BRO OK / 


“* CHECKS TO SEE IF CURRENT LINE IS EMPTY. */ 
/* COMPARESPTRS RETURNS THE APPROPRIATE TRUE/ / 
“/* FALSE VALUE IN THE A REGISTER. */ 
“7* INPUT: DE - ADDRESS OF CURSOR 7 
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*# BC - COMPUTED OFFSET OF TERM NBR */ 
7x QUTPUT: A - RETURNED TRUE IF CURSOR IS */ 
o* PRESENTLY AT LEFT MARGIVY. */ 
A REKRRKKRKRRKERARAAKRHKKKKRRKRKAKKKRKKRKKKKKKKKAKKKRERKKKK 
HL=( CURRENTSLINE]+BC;/“*HL=ADD OF CURRENTLINE*~/ 
CALL [ COMPARESPTRS] ; 7* COMPARE */ 
“7* CURSOR = CURRENTSLINE */ 

END CHECKSLEFTSMARGIN; 


CLEARSPTR: PROCEDURE; 
ARERR RAK RK RK KEK KKK KKK KK REBAR K RRR EK RIK KE EZ 


7* SETS THE VALUE TO THE SPECIFIED DISPLAY */ 
“* POINTER TO ZERO. */ 
7* INPUT: HL - ADDRESS OF THE DISPLAY PTR */ 


S RRKRRKRBRRK RAK EK KKK RK BRE KR EEK RE KBR RR KER ER / 
MeHLy=-(A=0); HL=HL+1; MC HL) =A; 
END CLEARSPTR; 


DELETESCHAR: PROCEDURE; 
SRRRKRA KARR RRA BR HEAR RE RR OR OR ROR OR RR OR OR OR ORE ERE ORK 
7* DECREMENTS THE CURRENT CURSOR POSITION AND */ 
7* SETS NEW CURSOR POSITION DISPLAY TO BLANK. */ 
7* INPUT: DE - ADDRESS OF CURSOR */ 
7% BC - COMPUTED OFFSET OF TERMINAL NBR x*~/ 
SRR ARKAK RAR RBA KA BRAK ABR RR AKER RR RK BB RR RR RK KB KEE RK Z 
CALL ( GETSVALUE] ; “/* GET CURSOR */ 
HE-L- 1; 7* DECREMENT CURSOR */ 
CALL ({STORESVALUE]; “* SAVE NEW CURSOR POS */ 
CALL [GETSDISPLAYSADDR]; “* REPLACE PRESENT */ 
MC HL)=C€ A= CBLANK]); ~* CHAR WITH BLANK */ 
END DELETESCHAR; 


TERMNINATESCL: PROCEDURE; 

AS RRRR RARER RAKE ABR RRR HR AEE RI IR RE RR EI RR RR IR RRR AEE / 
“/* TERMINATE THE CURRENT LINE. THE SAME */ 
7* PROCESSING IS DONE FOR BOTH AN MTS CMD AND */ 
“7* A CARRIAGE RETURN (CR) SINCE EACH SPECIFIES *x*/ 


7* THE END OF INPUT BY THE USER. */ 
AR RRR IRR RIB RR ARR ROR OR IR RK OR IR OE ROK ER IR OBR IR OBR RK IR ORK OR OR OR IS OR AR EK OR EK KZ 
“7* CHECK CHAR PRESENTLY BEING */ 
7*x DISPLAYED AT CURSOR POSITION  / 
“7* PRIOR TO UPDATING PTRS. */ 
A=T; CALL ([CHECKSCURSOR] ; 
7* END OF CURRENT LINE; UPDATE */ 
7* DISPLAY POINTERS FOR NEW INPUT */ 
7/* BUFFER AND NEW CURRENT LINE. */ 


“* SET ENDSIBUFF=CURRENT CURSOR POS */ 
A=T; HL=CENDSIBUFF) ; 
CALL (GETS INDEX] ; 
HL={ CURSOR] +BC; 
BC=DE; DE=HL; 
CALL (GETSVALUE] ; 


DE= sar | ; 

CALL ({STORESVALUE]; “* ENDSIBUFF=CURSOR x*/ 
7* MOVE CURSOR TO BEGINNING OF / 
7* NEXT LINE. HL CONTAINS THE */ 
/%* CURRENT CURSOR POSITION. */ 


IF (A=CHAR; A::CENTER]) !ZERO THEN 
DO; “* CHAR IS EITHER NEXT LINE OR MTS CMD x*/ 
BC=64; HL=HL+BC;“*ADD 64 TO CURRENT POS; */ 
L=(A=L 8&8 OCOH) ;“*THEN CLEAR LOWER 6 BITS*~2 
A=T; 
CALL [ UPDATESCURSOR] ; 
/* SET CURRENT LINE = NEW CURSOR POS*/ 
A=T; HL=(€ CURRENTSLINE]; 
CALL (GETSINDEX) ; 
HL={ CURSOR] +BC; 
BC=DE; DE=HL; 
CALL {GETSVALUE] ; 
DE=BC+ 1; 
CALL (STURESVALUE] ; “*CURRENTSLINE=CURSOR*/ 
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END; 
END TERMINATESCL; 


MISSCMD: PROCEDURE; 
iS SS > St > SS eS SP Se SS SSS SS tS eS SS SS St bt SS oS SS S&S Sb oe > eS > we 
7* CHECK TO SEE IF THIS INPUT CAN BE ACCEPTED. xv 
/* IF SO, SET TERMSSTATUS TO MTSSCMDSREADY AND x-7 
“* SET MCP BIT IN TASK CONTROL TABLE TO ENSURE ¥*/ 
7* MCP IS CALLED BY THE MONITOR TO PROCESS THIS *-/ 
“7* MTS COMMAND. */ 
AS RRR BERR KK RR RRR RRR EE RK EK OB EK ORR EE RRR IE EK REE EK IK ORR IK / 
CALL ACCEPTSINPUT; 
IF ¢€A=>>A) CY THEN 
DO; 7* ACCEPT INPUT BUFFER */ 
MC HL) =¢ A= MTSSCMDSREADY]) ; 
B=@; C=(€A=T); 
HL=(€ TCTSSTATUS] + BC; 
MC HL) =CA=MC HL) N 2); 
CALL TERMINATESCL; 
END; 
END MTSScMpD; 


CARRIAGESRETURN: PROCEDURE; 
A RBBB A AR AR BR AB AB RAB BR AB AB AB OR ABR AB AB ABB BOR BR BR OR EB OB AR BR ABB ROB OB ABB AB ORE BR 
7* USER HAS TERMINATE CURRENT LINE. CHECK TO */ 
7/* SEE IF NEW INPUT BUFFER CAN BE ACCEPTED. IF */ 
7* SO, SET TERMSSTATUS TO INPUTSWAITING AND */ 
“* TERMINATE CURRENT LINE. */ 
A RABARRB RK RR RRB RRR OK RK RR BR KR RK OK OR RR OK OK OR RR RR KBR RRR KOK KK RK / 
CALL ACCEPTS INPUT; 
IF €A=>>A) CY THEN 
DO; /* ACCEPT INPUT BUFFER */ 
MC HL) =C A=C INPUTSWAITING!) ; 
CALL TERMINATESCL; 


END; 
END CARRIAGESRETURN; 


CHARSDELETE: PROCEDURE; 
S RRR RARE BK BREE IE BBE EB IE IE A AR IE ARE OR RIK AE EB RE AB EZ 


“/* CHECK TO ENSURE THAT CURRENT LINE IS NOT */ 
/* EMPTY. THEN DELETE THE PREVIOUSLY ENTERED */ 
/* CHAR. */ 
“/* INPUT: DE - CURSOR OFFSET ADDRESS */ 


A RRR ARK RRA BRK BBR RAE BR EEA EE IR ER BREE EZ 
CALL CHECKSLEFTSMARGIN; 
IF €A=>>A) CY THEN 


DO; /* CURRENT LINE EMPTY */ 
=T; 
CALL ([SENDSBEEP] ; 
END 
ELSE 
DO; o* DELETE CHAR * / 


A=T; CALL (CHECKSCURSOR] ; 
A=T; HL=(€ CURSOR] ; 
CALL (GETS INDEA] ; 
CALL DELETESCHAR; 
END; 
END CHARSDELETE; 


LINESDELETE: PROCEDURE; 
SP RRERRRER RE REE ABB AKA BABB EKER KER BBR AE ERE BE RK / 


/7* CHECK TO ENSURE THAT CURRENT LINE IS NOT */ 
7* EMPTY. IF NOT, THEN DELETE THE CURRENT LINE. */ 
7* INPUT: DE - CURSOR ADDRESS OFFSET */ 


SP RRRRBRRRK AK RBBB KK BK A ERE BK ARBRE EB KERB RB / 
CALL CHECKSLEFTSMARGIN; 


IF €A=>>A) CY THEN 
DO; /* CURRENT LINE EMPTY */ 
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A=T; 
CALL (CSENDSBEEP] ; 
END 
ELSE 
DO; 
A=T; CALL (CHECKSCURSOR]; A=@; 
DO WHILE (A=>>A) ICY; 
=T; HL=( CURSOR] ; 
CALL (CGETSINDEX]; “* GET CURSOR OFFSET *- 
CALL DELETESCHAR; 
=T; HL=€ CURSOR] ; 
CALL ( GETS INDEX] ; 
CALL CHECKSLEFTSMARGIN; 
END; 
END; 
END LINESDELETE; 


CAPITAL: PROCEDURE; 
CRRA RB RR RR BR OR ARR OR RR OR OR OR BR OR ORR AB ER OR ROK OR OR OR OK OR OR RR ER ORE OR OK KOR KK ZK 
/* SET OR CLEAR THIS TERMINALS CAPITALIZE FLAG. */ 
7 RR RR RR OR OR RR OR ROR OR OR RR IG OR OR OR RR AR OR RR IR OIE HE OR ORK OR ORE OR HE IR OIE OK OR OR RE OR OR OK 
B=@; C=(A=T); HL=(CAPITALIZE1+BC; 
M(HL)= (A=M(HL) \\1); 
END CAPITAL; 


CLEARSSCREEN: PROCEDURE; 
A ROR RR RR RRR RR RK ROK AR RR ER BR AR RE TR RR OE OR OR RSE SR CE RR II OR IK / 


/* CLEARS THE 9312 BYTE DISPLAY BUFFER AND <7 
“/* REINITIALIZES THE DISPLAY POINTERS. */ 
“7* INPUT: HL - CURSOR ADDRESS a7 
PRERKRRKKKKRK RK KK KKKKERKKKRRKKKKRKKEKAKKK KE KRKAR ERE K/ 
CALL CLEARSPTR; f7* REINITIALIZE DISPLAY *- 
A=T; HL=( CURRENTSLINEIJ;~“°** PTRS AND TERMINAL x*/ 
CALL (GETS INDEX] ; /* STATUS. */ 


CALL CLEARSPTR; 
A=T; HL={ NEXTSCHAR] ; 
CALL (GETSINDEX] ; 
CALL CLEARSPTR; 
A=T; CALL CGETSTERMSSTATUS] ; 
M( HL} =( A=C IBUFFSEMPTY]) ; 
1% CLEAR THE DISPLAY */ 
A=T; HL=€DISPLAYSBASE]) ; 
CALL (GETSINDEX] ; 
CALL (GETSVALUE]; 7* DISPLAYSBASE PTR IN HL*/~ 
BC=90; DE=512; ~* SETUP INPUT PARAMETERS FOR */ 


7* (BLANKSDISPLAY] PROC */ 
CALL ( BLANKSDISPLAY] ; 
7* RESET SWAPSPOS TO CURSORSCHAR * / 


B=0; C=C A=T) ; 

HL=( SWAPSPOS1]+BC; 

MC HL) =( A={ CURSORSCHAR]) ; 
END CLEARSSCREEN ; 


CURSORSLEFT: PROCEDURE; 
FETE ST STEP SST SST TSS SSP SS SSS SPS SESS SPSS SSS LS SSS SSS Ve 
7* MOVES THE CURRENT CURSOR POSITION BACK ONE. */ 
/7* CHECKS TO ENSURE THAT CURSOR IS NOT ALREADY */ 
“/* AT THE LEFT MARGIN OF CURRENT LINE. */ 
/* INPUT: DE - CURSOR ADDRESS 7 
SREREREK REE RR EERE ERE RRR BRE EE EE EE ER AB OB RE OR AR OB ORR ER OK 7 
CALL CHECKSLEFTSMARGIN; 
IF (A=>>A) CY THEN 


DO; /* AT LEFT MARGIN; SEND BEEP */ 
=T; 
CALL (SENDSBEEP]; 
END 
ELSE 
DO; 7* DECREMENT CURSOR 7 


=T; CALL ( CHECKSCURSOR] ; 
A=T; HL=( CURSOR] ; 
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CALL (GETS INDEX] ; 
CALL € GETSVALUE] ; 


HL=HL~1; 
CALL CSTORESVALUE]) ; 
END; 


END CURSORSLEFT; 


CURSORSRIGHT: PROCEDURE: 
SRR BRA BRR RB RRR BR BR AB ABR ROR ORR OR EE IS AE IS RR EEE OK RR OR ORE ERR KOR KEK 
7* MOVE THE CURRENT CURSOR POSITION FORWARD ONE. x/ 
7* INPUT: DE - CURSOR ADDRESS / 
J RRR RR RK RRB RB RR RR ERR RK BR RK ACK ER OK RK RE RR RK ROKK KEK KKK / 

A=T; CALL {CHECKSCURSOR] ; 

A=T; HL={CURSOR]; 

CALL (GETSINDEX] ; 

CALL [ GETSVALUE} ; 

HL=HL+1; 7% SETUP NEW CURSOR POS */ 

A=T; CALL ( UPDATESCURSOR!] ; 

END CURSORSRIGHT; 


CHECKSCASE: PROCEDURE; 
SRR RAR AR AR AR BR ER RR RB AR IRE RR RR ORK AB ER AR OR OR OK OR OK ROR ERK 7 
7* USES A CASE STATEMENT, INSTEAD OF ’ELSE DO’ *7 
“* TO CHECK FOR THE LAST FOUR KEY COMMANDS. IF x*/ 
7* NOT, RESPONSE IS SET TO FALSE. (NOTE: CASE */ 
/* STMT MUST BE USED TO GET AROUND ML&9’S PARSE x/ 
7* STACK OVERFLOW, CAUSED BY TOO MANY ’IF THEN *7 
7* ELSE DO’ STMTS. */ 
/* INPUT: DE ~ CURSOR ADDRESS */ 
SKRARKKAKARKRBRHRAKBKKKA RRA KA RK R ARK ARK RAB RK BKK R RR K ARKH KZ 
H=@; L=(A=CHAR-@AI1H); /“* SETUP CASE OFFSET ¥*/ 
IF (A::@) PLUS 8&8 (A::4) MINUS THEN 
DO CASE HL; 
CALL CAPITAL; 
CALL CURSORSLEFT; 
CALL CURSORSRIGHT; 
DO; HL=DE; CALL CLEARSSCREEN; END; 
END 
ELSE 
RESPONSE=( A={ FALSE) ) ; 
END CHECKSCASE; 


RSTSCMD: PROCEDURE; 
J RAR RK AAA KKK AK KK KAKA AA KRHA KRKR RRKKRKRKKAK RK RE KR AKKRE Z 
7* SET RST BIT IN THE TASK CONTROL TABLE SO *S 
7* RST 7 IS EXECUTED BY MONITOR. */ 
SAAR RRR KAKA KKK EKRK RRKA RARE RRR RRR ARK BRK RK / 

B=; C=( A=T); 

HL=( TCTSSTATUS] + BC; 

MC HL) =(A=MC HL) \ 10H) ; 

END RSTSCMD; 


SRR RRR RK BR RB RK ER BRK RE OK OR RB OE OB RE OB OR OR OR AR FR OK OB OB OR OR RR OR BB ROR EK 


7* START OF KEYSCOMMAND PROCESSING */ 
A RAAB RA RAR AR KR AK BRR RR RR RAR RR AE RR AR ORR ARR RK AR ER RK ER A / 


T=A; CHAR=(A=C); “* GET INPUT PARAMETERS */ 
RESPONSE=( A={ TRUE] ) ; /* INITIALIZE RESPONSE */ 
A=T; HL={ CURSOR] ; 7* GETSINDEX PARAMETERS eS 
CALL € GETSINDEX] ; /*x GET CURSOR OFFSET ADDRESS*/ 
IF (A=CHAR-{ MTSSCMD]) ZERO THEN 7* MTS CMD *7 


CALL MTSSCMD 


ELSE DO; 
IF (A=CHAR; A::(CR]) ZERO ~\ 
(A::CENTER]) ZERO THEN “* NEXT LINE OR a 
/* ENTER DEPRESSED */ 


CALL CARRIAGESRETURN 





ELSE DO; 
IF ( A=CHAR-( CHARSDELETE]) ZERO THEN 


CALL CHARSDELETE 7% CHAR DELETE CMD 
ELSE DO; 
IF (A=CHAR-(€ LINESDELETE]) ZERO THEN 
CALL LINESDELETE Ve DELETE LINE CMD 
ELSE DO; 
IF (A*CHAR-[ RSTSCMD]) ZERO THEN 
CALL RSTSCMD 7% RESTART 7 CMD 
ELSE 
CALL CHECKSCASE; 7* USE CASE STMT TO 
/* CHECK FOR REMAINING 
7k KEY COMMANDS. 
END; END; END; END; “7* END OF ELSE DO’S 
A=RESPONSE; 


END KEYSCOMMAND; 


TERMS INPUTSCNTL: PROCEDURE; 
S RRERAEKRKR KK KAKK EKA KKK RK AKER ERE RRR KEKE RKB RRB KR KKK SF 


7* 


CONVERTS THE INPUT MATRIX CODE TO ASCII; CHECKS 
FOR CAPIALIZATION AND CONVERTS LOWER TO UPPER 
CASE LETTERS IF REQUIRED; CHECKS FOR MTS KEY 
COMMANDS; IF NOT A KEY CMD THEN THE CHAR IS 
DISPLAY AT THE TERMINAL AND CURSOR INCREMENTED. 
INPUT: C - MATRIX CODE 

E - TERMINAL NUMBER 
CALLED BY: TERMINALSHLDR CINTERRUPT MOD) 


KZ 


*/ 


7 


A RRRKKKKREKKKKRKRARRAKAKHAHABRAKKRKAKKRAKKMKKKRAK AHR EK KARR ERR RRA KAZ 


EOF 


DECLARE (CHAR,T) BYTE; 
T=( A=E) ; /* SAVE TERMINAL NUMBER 


/* CONVERT MATRIX CODE TO ASCII 
B=9; HL=CASCIII+BC; 
CHAR=( A=M( HL) ) ; 
7* CHECK FOR CAPITALIZATION 
D=90; HL=€ CAPITALIZE1]+DE; 
IF (A=MC HL); A?:0@) !ZERO & (CA=CHAR-61H) PLUS 
8 (A=CHAR-7BH) MINUS THEN “* CONVERT TO 
CHAR=( A=CHAR-20H); ~* UPPER CASE LETTER 


/* CHECK FOR ANY KEY COMMANDS 
C=( A=CHAR) ; A=T; 
CALL KEYSCOMMAND; 


/* A REG RETURNED TRUE IF KEY CMD FOUND 
IF ¢€A=>>A) !CY THEN 7“* DISPLAY CHAR 

DO; 

=T; CALL [(CHECKSCURSOR] ; 

=T; HL=€ CURSOR] ; 
CALL (GETSINDEX]; ~“* GET CURSOR OFFSET 
CALL (GETSDISPLAYSADDRI ; 
M( HL) =( A=CHAR) ; 


*/ 


K/ 


/* UPDATE CURSOR POSITION BY ONE. BC WAS*/ 


7* RETURNED FROM GETSDISPLAYSADDR SET 
“/* TO THE VALUE OF CURSOR. 
HL=BC+1; 
A=T; CALL [£ UPDATESCURSOR] ; 
END; 
END TERMS INPUTSCNTL; 


*K/ 
K / 


A RRR ERR ERIK RRR IEE RA IE IE TR IE IE AR AB OR OR 2% OR IR AB AB OR IE FR OR AB RR OR A OR AR RAR OR 


seek TERMINAL INTERFACE SYSTEM FUNCTIONS = kx **/ 
APRA BE KK AE IR EE IER RAE ARK EB ER OR OR A OK RO AB OR AR AR AR OR OR OR RK EK 
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(MACRO IBUFFSEMPTY nos 


J 
(MACRO MTSSCMDSREADY *OFOH’ | 
CMACRO CR "ODH’ ] 
{MACRO LF ‘OAH’ J 


J RRRRRRRARARR RRR RRR RRR AB ER RE BRB RRR EK RR ER RR BR OR KKK 


SRKKKKK INTERNAL AND EXTERNAL LINKAGE MACROS **x***x**/ 
{INT GB TB] CGB :-= @] {TB := 10008) 
[MACRO TASK *MCC HEX GB + S3E80H))’] 
[MACRO MISSMESSAGE ‘°{ HEX TB + 011CH)’ Jj 
{MACRO SIZESMESSAGE ’( HEX TB + @O1CFH]’ Jj 
[MACRO CURSOR °C HEX TB + O1D5H)’ Jj 
[MACRO CURRENTSLINE ’( HEX TB + O1DPH)]’ J 
[MACRO NEXTSCHAR *CHEX TB + O1ESH)]’ Jj 
[MACRO ENDSIBUFF ’( HEX TB + O1EDH)’ J 
{MACRO COMPARESPTRS °({ HEX TB + 0213H)]’° J] 
[MACRO CONVERTSNUMBRSTOSASCII °C HEX TB + 0231H]’ Jj 
[MACRO GETS INDEX *CHEX TB + 024CH]’ Jj 
CMACRO GETSVALUE *"CHEX TB + 9259H)]’ Jj 
(MACRO STORESVALUE ‘°C HEX TB + 0262H]' ]j 
[MACRO MOVESBYTES “CHEX TB + @26BH)]° ]j 
[MACRO SWAPSCURSOR ’( HEX TB + O27EH)’ 1] 
[MACRO BLANKSDISPLAY "CHEX TB + O2A3H)’ J 
{MACRO CHECKSCURSOR "(HEX TB + 62D0H) ’]) 
{MACRO GETSDISPLAYSADDR °C HEX TB + O2B7H)’] 
[MACRO GETSSTATUSSADDR ’({ HEX TB + O2ECH])’ ] 
[MACRO GETSTERMSSTATUS “ents [bot -OZF9IH)* ] 
[MACRO UPDATESCURSOR *CHEX TB + 83C2H)’] 


BLINKSCURSORS: PROCEDURE; 
SRRRRRRERREREERRE REAR AR AAR RRR EEE ERR RE ERE EEE HER 
/* SWAPS THE CURRENT CONTENTS OF CURSOR( I) WITH 
/* SWAPSPOS( I) FOR EACH TERMINAL (1=90 TO 3). 
/* CALLED BY: TIMERSHDLR (INTERRUPT MOD) 
Peete ek KK EK RAKE RREKEKRKKARKKKKRK RK EKRKKKKREK/ 
DECLARE I BYTE; 
I=( A=3) ; 
REPEAT; 
HL={ CURSOR] ; 
CALL (GETSINDEN] ; 
CALL (GETSDISPLAYSADDR]; 
A=[; CALL (SWAPSCURSOR] ; 
[=(A=I-1); 
UNTIL (A::9) MINUS; 
END BLINKSCURSORS ; 


CLEARSSTATUSSLINE: PROCEDURE; 
A RRRRKE KERR KE RE RR ERKE ER AKRE BE RAR EERE BEEK BERK BBR 


7# CLEARS THE STATUS LINE OF THE SPECIFIED TERMINAL. */ 


/* INPUT: A - TERMINAL NUMBER 7 
7* CALLED BY: MTISSIPL (MONITOR MOD); */ 
7% BUMP (SERVICE MOD) ; */ 


A BRRERRARA SERRA ERB BK BERK BR BRR EEE BEE RR ERE REE EE EZ 
CALL [ GETSSTATUSSADDRI ; 
BC=0; DE=64; “/# SETUP PARAMETERS FOR 
CALL (BLANKSDISPLAY]; “* BLANKSDISPLAY PROC 
END CLEARSSTATUSSLINE; 


*/ 
*/ 


MTSSMSG: PROCEDURE; 
SRRRRRER REE EKER EKER HE KER EERE EKER EERE ERK RR RE BREE RF 


“7* CONTROLS THE MTS MESSAGE DISPLAY FIELD ON THE */ 
7* STATUS LINE OF THE TERMINAL SPECIFIED BY ‘TASK’. */ 


164 





7 
& 
7 


THE MTS MESSAGE FIELD STARTS AT POSITION 48 AND 
UTILIZES THE REMAINING 16 BYTES FOR MTS MESSAGES 
(SEE MISSMESSAGE DATA). 
INPUT: E - MTS MESSAGE NUMBER. 
CALLED BY: BUMP (SERVICE MOD) ; 

PRINTERSHDLR (INT MOD) ; 

MINISDISK (MONITOR MOD) ; 

RECOVER (MONITOR MOD) ; 

BUNPSTASK (MONITOR MOD) ; 


A RA RRA RRR RR RK RK ER RK ROAR OR ROR AR AR AR RAR OK AB BOR EK OE EE OR EK ROK ROK ROK OR OK KEK / 


DECLARE MSGNO BYTE; 
MSGNO=( A=E) ; 

A= (TASK); 

CALL [ GETSSTATUSSADDR] ; 


BC=46; 7* MTS MSG FIELD OFFSET FROM*/ 


“* STATUS BASE ADDRESS 
A=MSGNO; E=4; CY=9; 


REPEAT; /* COMPUTE OFFSET INTO THE 
A=<<A; /* MTSSMESSAGE DATA VECTOR 

UNTIL (E=E-1) ZERO; 

DE= ( HL= HL+BC) ; 7* SETUP PARAMETERS FOR 

B=@; C=A; /* [MOVESBYTES] PROC 

HL=( MTSSMESSAGE] +BC; 

BC=16; CALL [MOVESBYTES] ; 7* DISPLAY MSG 

END MTISSMSG; 


SIZESMSG: PROCEDURE; 
A RRR ARR RK AAR IER AR HE RE ARR ER AE OR AE AR AR AIS TE AIC TE IC IS IE ISIC ISR IE IE ORE OR OR RK AR ES / 


CONTROLS THE DISPLAY OF THE CURRENT MEMORY SIZE 


ON THE STATUS LINE OF THE TERMINAL SPECIFIED BY 
"TASK’. THE SIZE MESSAGE STARTS AT POSITION 40 
AND HAS THE GENERAL FORMAT: 

40 47 

NRK MTS ic. Ga elon Tis 
WHERE 

"NR’ IS THE CURRENT MEMORY SWAP SIZE 

ALLOCATED TO THAT TERMINAL USER. 
THE RANGE IS FROM 9 TO 48K. THE INPUT MEMORY 


SIZE NUMBER IS CONVERTED TO ASCII FOR DISPLAY. 
INPUT: A - MEMORY SIZE 
CALLED BY: SIZE (SERVICE MOD); 
LOGIN (SERVICE MOD) ; 
RECOVERSSTATUSSLINE (MONITOR MOD) ; 


*/ 


K/ 
*/ 


*/ 
K/ 


*/ 


*/ 


K/ 


SRA RR EE ER BR KR AR AR AR RE A OR OR 2 IRR OR IR 2B SIR SIR IS 8 IS IR OR IR OR OIE OIE IS IR IE ORR OR BR OR ARB OR OK AB / 


DECLARE MEMSSIZE BYTE; 


MEMSS IZE= A; 

A= (TASK); 

CALL [ GETSSTATUSSADDR]I ; 

BC= 40; /* SIZE MSG FIELD OFFSET */ 

HL= HL+ BC; /* HLESTARTING ADDRESS OF */ 
/* SIZE MSG FIELD ON STATUS */ 
Ze) LINE: */ 

A=MEMSS IZE; 

CALL ( CONVERTSNUMBRSTOSASCII]) ; 

M( HL) =( A=B); HL=HL+1; /* DISPLAY MEMORY SIZE */ 

MC HL)=(A=C); DE=HLt1; /* SETUP PARAMETERS */ 

HL={SIZESMESSAGE] ; /* FOR [MOVESBYTES] PROC#/ 

BC=6; CALL (MOVESBYTES] ;“* DISPLAY REST OF 7 

A SIZE MESSAGE */ 


END SIZESMSG; 


STATUSSMSG: PROCEDURE; 
PRR RR RRR AK ER RRR RR RB AR IR BE OR AR ARB BR AB AB AB AE AR A ARR AB KE AR AB ER / 


1 


CONTROLS THE STATUS DISPLAY. POSITIONS 9 THRU 39 
OF THE TERMINAL STATUS LINE. IT HAS THE 
FOLLOWING GENERAL FORMAT: 

9 


A= NOr B= NOrC=NOr D= NOrE= NOrF= NOrG=NOrH=NOr 
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*/ 


9 onl 





nn 7 
WHERE */ 
THE LETTER ON THE LEFT OF THE EQUAL SIGN 7 
SPECIFIES THE DRIVE. 7 

"NO’ IS THE DISK NUMBER (0-31). */ 

*r’ IS AN OPTIONAL PARAMETER WHICH IS <7 
DISPLAYED WHEN THE ATTACHED DISK IS A */ 
RESTRICTED (r) READ ONLY DISK. */ 

THE TERMINAL IS SPECIFIED BY ’ TASX’. ey 
INPUT: A - ASCII CODE FOR RESTRICT (r), oe 
OR BLANK (SPACE). */ 

B - DRIVE NUMBER (MUST BE CONVERTED TO 7 

A LETTER FOR DISPLAY). 7 

C ~- DISK NUMBER (RANGE 6-31; MUST BE say 
CONVERTED TO ASCII FOR DISPLAY) . */ 

CALLED BY: LOGIN (SERVICE MOD); K7 
ATTACH (SERVICE MOD) ; */ 
RECOVERSSTATUSSLINE (MONITOR MOD); a 


7 RRR ER RR RRR RR RRR RRR AR AR RAR OR RR ROR RAR ER RR RR OR RK OR RR OR AR OR ROR ROR RR RK 


DECLARE (RESTRICT, DRIVESLTR, DISKSNR) BYTE; 
“* GET INPUT PARAMETERS 77 
RESTRICT=A; DRIVESLTR=( A=B); DISKSNR=( A=C) ; 
A= [€TASK]; CALL ( GETSSTATUSSADDR] ; 
7/* COMPUTE THE APPROPRIATE STATUS hy 
7* BASE OFFSET TO DETERMINE WHERE *S 
“* TO DISPLAY THIS STATUS INFO */ 
C=9; B=(A=DRIVESLTR) ; 
DO WHILE (A::@) '!ZERO; 


C=( A=Cr3) ; 
B=( A=B-1);3 
END; 
HL=HL+BC; /* SETUP ADDRESS FOR STATUS MSG. */ 
7* DISPLAY DRIVE LETTER x7 
M( HL) =( A= DRI VESLTAR+414H) ; 
HL=HL+1; 
/k* DISPLAY EQUAL SIGN */ 
M( HL) =( A=’='); 


HL=HL+1; A=DISKSNR; 

/*x CONVERT AND DISPLAY DISK NUMBER x*/ 
CALL C CONVERTSNUMBRSTOSASCIII ; 
M( HL)=( A=B); HL=HL+1; 
MC HL)=(A=C); HL=HL+1; 

7* DISPLAY RESTRICT OR BLANK BYTE */ 
M( HL) =( A=RESTRICT) ; 
END STATUSSISG; 


TERMINALSSTATUS: PROCEDURE; 
SRR RAR AAR RRA RAE RR EERE ERE ER RE IRE AAR AB AE IR AR AR ARE AR RE / 


SH 
7* 


7% 


PROVIDES THE INTERFACE POINT FOR OTHER MTS SYSTEM*/ 


FUNCTIONS. RETRIEVES THE CURRENT TERMINAL STATUS */ 
FOR THE TERMINAL SPECIFIED BY ’TASK’. */ 
OUTPUT: A - SET TO THE TERMINAL STATUS (EITHER */ 
INPUTSWAITING; MISSCMDSREADY; OR */ 
IBUFFSEMPTY) BY GETSTERMSSTATUS PROC. */ 
CALLED BY: WRITESTERMINAL; MNISC(SERVICE MOD) ; */ 
READSTERMINAL; */ 
MTSSIPL (MONITOR MOD) ; */ 


A RRRARK KKK RK KKK RARER OK BK EER EK TR OK AR AR OK OK OK AE ER OR AR AR ROR ER OR BE RE OK OR / 


A=( TASK] ; 
CALL (GETSTERMSSTATUS] ; 
END TERMINALSSTATUS ; 


READSTERMINAL: PROCEDURE; 
PREAH KEEEAEIR E R E AR ER R AR TR AR OR AR AR AK OR AE AR OR AR AEE ER IE EEE ARR RZ 


GETS THE NEXT CHAR FROM THE TERMINAL INPUT BUFFER*~ 
SPECIFIED BY °*TASK’. */ 
IT IS ASSUMED THAT THE CALLING PROCEDURE HAS */ 
CHECKED TERMINAL STATUS TO ENSURE INPUT IS */ 
WAITING PRIOR TO CALLING READSTERMINAL. */ 
A TEST FOR END OF IBUFF IS MADE AND IF SO, A */ 
"CR’ CHAR IS RETURNED; THE TERMINAL STATUS IS SET*/ 
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7* 
/* 


TO EMPTY; AND THE NEXTSCHAR PTR IS SET TO CURRENT*~ 


LINE. KS 
IF NOT AT END OF IBUFF, THE NEXT CHAR IS RETURNED*/ 
AND THE NEXTSCHAR PTR INCREMENTED. */ 
OUTPUT: A - CHAR OR CR */ 
CALLED BY: MIS (SERVICE MOD); MISS$IPL (MONITOR) ;x*~ 

MONITOR (MONITOR MOD) ; */ 


RRA RR RA ABR RE EE AR ARAB AK RK AE AR OK OR EK AR OR RR ORK IR OK III IOK KKK / 


DECLARE CHAR BYTE; 
DECLARE PTR(2) BYTE; 


A= [TASK]; HL=(€ NEXTSCHAR] ; 
CALL ( GETSINDEX] ; “* DE=ADDR OF NEXTSCHAR PTR x/ 
HL=C ENDS IBUFF1+BC;7* HL=ADDR OF ENDSIBUFF PTR 7 
CALL ([COMPARESPTRS]; /* NEXTSCHAR=ENDSIBUFF ?? xv 
IF (A=>>A) CY THEN 

DO; 7* AT END OF IBUFF, SET */ 

“* NEXTSCHAR = CURRENTSLINE */ 

A= [TASK]; HL=€ CURRENTSLINE]; 

CALL ( GETS INDEX] ; 

BC=( HL={ NEXTSCHAR] +BC) ; 


CALL [ GETSVALUE} ; “* HL=CURRENTSLINE VALUE*~ 
DE= BC+ 1; 
CALL CSTORESVALUE] ; 

7* UPDATE TERMINAL STATUS *S 


CALL TERMINALSSTATUS ; 7% RETURNS HL=ADDR ¥*/ 
“* OF TERMSSTATUS. *-/ 
MC HL>=(A= (€ IBUFFSEMPTY]) ; 


7# RETURN ’CR’ TO CALLER */ 
CHAR=( A=[{CR}); 
END 
ELSE “* NOT AT END OF IBUFF ee 
/* RETURN THE CHAR *S 
DO; 
A={ TASK]; HL=( NEXTSCHAR] ; 
CALL (CGETS INDEX] ; 7* GET AND SAVE “7 
PTR= HL; 7* NEATSCHAR OFFSET *K/ 
CALL ([GETSDISPLAYSADDR}] ; 
CHAR=( A= MC HL) ); 7* RETURN CHAR */ 
/* INCREMENT NEXTSCHAR 7 
DE=( HL=PTR+ 1) ; “7* SETUP (STORESVALUE] */ 
HL=BC+1; fk PARAMETERS / 
CALL [(STORESVALUE] ; 
END; 
A=CHAR; 7* RETURN APPROPRIATE RESPONSE ¥*- 


END READSTERMINAL; 


WRITESTERMINAL: PROCEDURE; 
PRAIA RRR ARR RE ER EE AR KE IE EK EE RK OR IE BE IE ROR ARR OR OR RR OB OR IE OE OE ROR IE KZ 


DISPLAYS THE CHAR AT THE CURRENT CURSOR POSITION x/ 
OF THE TERMINAL SPECIFIED BY ‘TASK’. IT CHECKS */ 
FOR TWO SPECIAL CHARACTERS WHICH AFFECT THE */ 
DISPLAY CURSOR POSITION. *K/ 
"CR’ RETURNS THE CURSOR TO THE BEGINNING OF THE #*- 
CURRENT DISPLAY LINE. ’*’LF’ MOVES THE CURSOR DOWN x*~7 


TO THE NEXT LINE. */ 
FOR ALL OTHER CHARACTERS, THE CHAR IS DISPLAYED */ 
AND THE CURSOR POSITION INCREMENTED. */ 
PRIOR TO OUTPUT, THE CURRENT CURSOR DISPLAY *K/ 


ADDRESS IS CHECKED TO ENSURE THAT THE CURSOR CHAR*~ 
IS SAVED. OUTPUT OF CHARACTERS IS DONE UNDER */ 


INTERRUPT LOCKOUT TO ENSURE THAT SWAPPING BY */ 
BLINKSCURSORS PROC IS NOT DONE. CA 
SUBPROCEDURE: UPDATESPTRS; 74 
INPUT: E ~- ASCII CODE OF CHAR TO BE DISPLAYED Ca 
CALLED BY: MTS (SERVICE MOD) ; A 

MTSSIPL (MONITOR MOD) ; ey 


A RRARKK KKK RK ARR KKK RK RR KAR KK RK ARERR KR RK RK RRR RK RK KK RK / 


DECLARE CHAR BYTE; 
DECLARE SAVESCURSOR (2) BYTE; 
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EOF 


UPDATESPTRS: PROCEDURE; 

SP RBRRRRERKKKKEKKEKRAKK KABA KAA BAK BER ROE RIKER IK / 
/* AFTER THE DISPLAY OF EACH CHAR THE CURRENT  */ 
“/* LINE PTR AND NEXT CHAR PTR ARE ALWAYS SET TO *~7 


/* NEW CURSOR POSITION. ADDITIONALLY, THE */ 
7* TERMINAL’S STATUS IS SET TO IBUFF EMPTY. */ 
SRRRKEREAK RRA AKER KKK BK KAKA KK RBBB BRK RK RK 

/* GET CURSOR POSITION KS 


A={ TASK]; HL={€ CURSOR] ; 
CALL [ GETSINDEX] ; 


/* SET CURRENTSLINE = CURSOR */ 
BC= ( HL=( CURRENTSLINEI]+BC) ; 
CALL {GETSVALUE]; /*  HL= CURSOR VALUE +7 
DE=BCr I; 


CALL [STORESVALUE]; /“*% CURRENTSLINE=CURSOR x*/ 
SAVESCURSOR= HL; 
/* SET NEXTSCHAR = CURSOR */ 
A={ TASK]; HL=( NEXTSCHAR) ; 
CALL (GETSINDEA] ; 
HL=SAVESCURSOR; DE=DE+1; 
CALL C(STORESVALUE]; “* NEXTSCHAR=CURSOR */ 
“/* SET TERMINAL STATUS = EMPTY x/ 
CALL TERMINALSSTATUS ; 
M( HL) =( A={ IBUFFSEMPTY]) ; 
END UPDATESPTRS ; 


J BARA RRR ARB RR RB BRR AB BR AB RR ORB RAB OR OR OR RR OR RR RRR RE RR BR OR ROR RZ 


/#* START OF WRITESTERMINAL PROCESSING */ 
ARR RR RR RRR RRR IRR RK KIRK RRR ER RK RR RR OR ORK RRR RE KK KZ 


DISABLE; 

CHAR= ( A=E) ; 

A=(€TASK]; CALL (€ CHECKSCURSOR] ; 
A=C TASK] ; HL=(€ CURSOR] ; 

CALL (GETSINDEX)] ; 

IF (A=CHAR-{CRI]) ZERO THEN 


DO; “* CARRIAGE RETURN */ 

CALL ( GETSVALUE] ; “7* HL=CURSOR */ 

L=(A=L & OCOH) ; /* GET LEFT MARGIN 

END 

ELSE 

DO; 

IF (A=CHAR- (LF]) ZERO THEN 
DO; /* LINE FEED 71 
CALL ( GETSVALUE] ; /*% HL=CURSOR */ 
BC=64; HL=HL+BC; 
END 

ELSE /* DISPLAY CHAR */ 
DO; 


SAVESCURSOR= HL; 

CALL (GETSDISPLAYSADDRI] ; 
M( HL) =( A= CHAR) ; 

DE= ( HL=SAVESCURSOR) ; 
CALL [GETSVALUE] ; 


HL=HL+ 1; /* INCREMENT CURSOR aa 
END; 
END; 
7* Hi. REG HOLDS NEW CURSOR POSITION ee 
A=({ TASK]; CALL [{ UPDATESCURSOR] ; 
ENABLE; 
7* UPDATE OTHER DISPLAY PTRS */ 


CALL UPDATESPTRs; 
END WRITESTERMINAL; 
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SP RBRKRARRAR RAK AR ARR BK RRR RR BRB BRB RE OB AB BB BB AB ROR BR OK RR KK ETE EK ROR OK KK / 


7* DEBUG MODULE KS 
J RBRRBRARRA KARR RBA KE KK ERK RRA ERB EER IRR ER REE KEE 
S# */ 


“* THIS MODULE PROVIDES THE FACILITY FOR INTERACTIVE *~ 
7k DEBUGGING OF MTS. THE DEBUGGER MODULE WAS DEVEL- */ 
7* OPED TO REPLACE THE SYCOR HARDWARE DEBUGGER DUE */S 
7* TO ITS QUESTIONABLE HARDWARE RELIABILITY AND LIM- xz 


/* ITED DEBUG CAPABILITY. */ 
Ves 7; 
/* THE DEBUG MODULE IS DIVIDED INTO FOUR BASIC SUB- ey 
/* MODULES: */ 
7 77 
/* (1) DEBUG ENTRY AND COMMAND PROCESSOR */ 
7 7, 
Sk THIS SUBMODULE CONTAINS THE ENTRY POINT FOR 7 
7% THE DEBUGGER AND THE LOGIC TO SAVE THE MACHINE *- 
1% AND MTS PROGRAM STATES. THE COMMAND PROCESSOR’ */ 
S* INTERPRETS THE DEBUG COMMAND REQUESTED AND rar 
yak TRANSFERS CONTROL TO THE APPROPRIATE DEBUG */ 
we PROCESSING PROCEDURE. HA 
Ve 7, 
/* (2) DEBUG UTILITIES 7, 
ve 3 *S 
Vins THIS SUBMODULE CONTAINS ALL UTILITY PROCEDURES x, 
TR USED BY THE DEBUGGER. ey, 
Tee #7 
7* (3) DEBUG PROCESSING PROCEDURES 7 
Ve 7 
Ve THIS SUBMODULE CONTAINS THE ROUTINES TO PRO- 7, 
S# CESS THE FOLLOWING DEBUG COMMANDS: DISPLAY (D) *7 
/* FILL (FF), GO ¢(G), GO WITH INTERUPTS DISABLED VA 
/* (H), MOVE (MM, SET (S) AND EXAMINE REGISTERS PVA 
/* (xX). THE EXIT POINTS FROM THE DEBUGGER ARE +7 
re CONTAINED WITHIN THE G AND H ROUTINES. A437 
1% hea 
/* €4) DEBUG PROCESSING PROCEDURES - DISK I/O <7 
1 a 
Vk THIS SUBMODULE CONTAINS THE ROUTINES TO PRO- ¥*/ 
1#* CESS THE FOLLOWING DEBUG COMMANDS: MINI-DISK ¥*/ 
7k BINARY INPUT (1), MINI-DISK BINARY OUTPUT (Q) */ 
vs AND READ HEX FORMAT (CR). 7 
Ve 7 
7% KS 
/* DEBUG COMMANDS 7 
Var KZ 


7* THE DEBUGGER CAN BE ENTERED AT ANY TIME BY PROGRAM *~7 
/* EXECUTION OF A RST 2 INSTRUCTION. WHEN THE DEBUG~- */7 
7/* ER 1S EXECUTING THE OPERATOR IS PROMPTED WITH A ~. */ 
/* THE ~ INDICATES TO THE OPERATOR THAT THE DEBUGGER */ 
7* 1S READY TO PROCESS A DEBUG COMMAND. */ 
7* CERTAIN CONVENTIONS APPLY TO ALL DEBUG COMMANDS. */S 
/* THE COMMAND DELIMITER IS EITHER A COMMA OR SPACE. */7 
7* A COMMA IS SHOWN IN THE COMMAND DESCRIPTIONS WHICH */ 
/* FOLLOW. ANY TIME A NUMERIC PARAMETER IS ENTERED, */ 
/* IT MAY BE ENTERED IN THE STANDARD HEXADECIMAL FOR- *7 
7* MAT OR IN DECIMAL BY PRECEEDING THE NUMBER WITH A X/ 


7* PERIOD (.). A 
7 7 
Va */ 
7* COMMAND DESCRIPTIONS */ 
re 7 
Ze 1. D - DISPLAY 7 


7% THE D COMMAND DISPLAYS THE CONTENTS OF MEMORY */ 
1% IN HEXADECIMAL AND ASCII FORMATS. THE FORMATS */ 


SR OF THE COMMAND ARE 7 
Vio 7 
7* D *K/ 
“* R<S> rd 
7 */ 
7* IF THE D COMMAND IS USED. MEMORY IS DISPLAYED *K/ 
7% FROM THE CURRENT DISPLAY ADDRESS (INITIALLY KS 
SR 4000H), AND CONTINUES FOR 4 DISPLAY LINES. eT 
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EACH DISPLAY LINE CONTAINS THE DISPLAY ADDRESS, 
THE DATA IN HEXADECIMAL FORMAT AND THE DATA IN 
ASCII FORMAT. A PERIOD (.) IS DISPLAYED IF THE 
ASCII CHARACTER IS NON-DISPLAYABLE. THE D<S> 
COMMAND PERFORMS IN THE SAME MANNER AS THE D 
a EXCEPT THE DISPLAY ADDRESS IS SET TO 

< , 


F - FILL 

THE FILL COMMAND IS USED TO INITIALIZE AN AREA 
OF MEMORY TO A CONSTANT VALUE. THE FORMAT OF 
THE COMMAND IS 


F<S> , D> ,<C> 


WHERE <S> IS THE STARTING ADDRESS, <F> IS THE 
FINAL ADDRESS AND <C> IS AN 8 BIT VALUE. 


G - GO (PROGRAM EXECUTE) 

THE G COMMAND TRANSFERS CONTROL FROM THE DE- 
BUGGER TO THE SPECIFIED PROGRAM COUNTER VALUE 
WITH UP TO TWO OPTIONAL. BREAKPOINTS SPECIFIED. 


THE FORMS OF THE COMMAND ARE 
G 
G< S> 
G<S>? ,< B? 
G<S> ,<B> ,< >? 
G,<B 
G,<B> ,<C> 


WHERE <S> IS THE VALUE TO WHICH THE PROGRAM 
COUNTER IS SET, AND <B> AND <@ ARE OPTIONAL 
BREAKPOINT LOCATIONS. IF <S> IS NOT SPECIFIED 
THE CURRENT VALUE OF THE PROGRAM COUNTER IS 
USED. IF NO BREAKPOINTS ARE SET, THE ONLY WAY 
TO RETURN TO THE DEBUGGER IS THE EXECUTION OF 
A RST 2 INSTRUCTION. 


* 
*/ 


H - GO (PROGRAM EXECUTE WITH INTERUPTS DISABLED) */ 


THE H COMMAND PERFORMS THE SAME FUNCTIONS AS 
G COMMAND EXCEPT INTERUPTS ARE DISABLED WHEN 
THE MACHINE AND MTS STATES ARE RESTORED. THIS 


COMMAND IS ESSENTIAL TO DEBUGGING THE CRITICAL » 


SECTIONS OF MTS CODE. THE FORMS OF THE COMMAND 
FOLLOW: 


H 

H< S> 

H< S>? ,< B> 

H< S> ,< B> ,< > 
H, <B>? 

He < Bb? ,<C> 


WHERE <C>,<B> AND <C> ARE THE SAME AS THE G 
COMMAND. 


I - MINI-DISK BINARY INPUT 

THE I COMMAND INPUTS 512 BYTE SECTORS FROM THE 
MINI- DISK INTO MEMORY. THE FORMAT OF THE COM- 
MAND IS 


I<? ,<A?,<N> 


WHERE <S> IS THE STARTING MINI-DISK SECTOR NUM- 
BER, <A> IS THE ADDRESS WHERE THE DATA IS [INPUT 
AND <N> IS THE NUMBER OF 312 BYTE BLOCKS TO BE 

INPUT. 


MOVE - MOVE MEMORY 
THE M COMMAND MOVES ONE AREA OF MEMORY TO AN- 
OTHER AREA OF MEMORY. THE FORMAT OF THE COMMAND 


IS 
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MS> ,<D> ,<N> 


WHERE <S> IS THE START ADDRESS, <D> IS THE DES- 
TINATION ADDRESS AND <N> IS THE NUMBER OF BYTES 
TO BE MOVED. 


O - MINI-DISK BINARY OUTPUT 
THE O COMMAND OUTPUTS MEMORY IN 512 BYTE BLOCKS 
TO THE MINI-DISK. THE FORMAT OF THE COMMAND IS 


O<S> ,< A ,< ND 


WHERE <S> IS THE STARTING MINI-DISK SECTOR NUM 
BER, <A> IS THE ADDRESS WHERE THE OUTPUT DATA 
IS LOCATED AND <N> IS THE NUMBER OF 512 BYTE 
BLOCKS TO BE OUTPUT. 


R - READ HEX FORMAT 

THE R COMMAND READS DATA FROM THE MINI-DISK IN 
INTEL HEX FORMAT AND LOADS MEMORY. THE FORM OF 
THE COMMAND IS 


R< N> 


THE INPUT FILE MUST HAVE THE NAME .DISK<N> 
WHERE <N> IS A NUMBER FROM O TO 31. THE FILE 
MUST ALSO BE CREATED AND FILLED UNDER THE SYCOR 
OPERATING SYSTEM. 


S - SET MEMORY 
THE S COMMAND IS USED TO EXAMINE AND OPTIONALLY 
MODIFY MEMORY ONE BYTE AT A TIME. THE FORMAT OF 
THE COMMAND IS 


S< A> 


WHERE <A> IS THE FIRST ADDRESS TO BE EXAMINED. 
THE DEBUGGER OUTPUTS THE ADDDRESS FOLLOWED BY 
THE CONTENTS OF MEMORY AT THAT ADDRESS. IF MEM- 
ORY MODIFICATION IS DESIRED, A VALUE MAY BE 
ENTERED FOLLOWED BY A CARRIAGE RETURN (<CR). 
IF JUST A <CR IS ENTERED THE NEXT LOCATION IS 
OPENED. A <-> CAUSES THE PREVIOUS LOCATION TO 
BE OPENED. A </> MAY BE ENTERED TO TERMINATE 
THE SET OPERATION. 


A - EXAMINE REGISTERS 
THE X COMMAND IS USED TO EXAMINE AND OPTIONALLY 
ALTER REGISTER CONTENTS. THE FORMS OF THE COM- 
MAND ARE 


a 
X< FO 


WHERE <R IS ONE OF THE FOLLOWING REGISTER 
IDENTIFIERS: C (CARRY BIT), E (EVEN PARITY BIT), 
I (INTERDIGIT CARRY BIT), Z (ZERO BIT), M (MIN- 
US - SIGN BIT), A (ACCUMULATOR), B (BC REGISTER 
PAIR), D (DE REGISTER PAIR), H (HL REGISTER 
PAIR), S (STACK POINTER) AND P (PROGRAM 
COUNTER). ALL REGISTER CONTENTS ARE DISPLAYED 
WHEN ONLY X IS ENTERED. IF X<R IS ENTERED, 

THE SPECIFIC REGISTERS CONTENTS ARE DISPLAYED 
AND MAY OPTIONALLY BE ALTERED BY ENTERING A 
NUMERIC VALUE FOLLOWED BY A CARRIAGE RETURN. 

IF ALTERATION IS NOT DESIRED, A <CR WILL 

CLOSE THE REGISTER. 


7 


CRRRRRRKKR KKH KR KKK HR KKK BKK KR BK RE RR ERE ARR EK RR RRR RR BOR RAR ER KK Z 
S RRR RKB RK BRR KK BK RRA RR BRR RRB RR BE RRR BRR BRR ARR BRR OB RRR RIS A ZH 


el 





S RRRBRBRR BR RBBB ABR BR REE BR RR BK OK ROR OK ROR RRR EK BRK RRR KAR KEK BRK 
SKKERAKRKAKAKKKAKKKAK DEBUGGER CONTROL *XXKKKKKKKKKKKKKKKS 
J ARAB AR RRR AR BOR ARR BBR BR RR AR ARR AR RR RR EI IR ARKO FOR OR CESK RODE 


SRERRERRERKEREK TNTERMODULE LINKAGE MACROS **®*****XKKKRK/ 


CINT DB2 DB3 DB4 M2B IB GB) 
(DB2:=2EC@H] [(DB3:=3070H!] £ M2B:=0600H]) 
C(IB:=3800H] ( DB4:=3460H] [ GB:=@] 
CMACRO MTS °C HEX GB + 1F06H)’!] 
CMACRO MOVBUF °C HEX M2B + 41H’) 
CMACRO SVCSSTACK °C HEX GB + 3C56HI]°] 
(MACRO INTSSTACK ’( HEX IB + 63H)]’] 
(MACRO GO °({ HEX DBS + ODH!"] 

(MACRO HI °C HEX DBS + 3B2H]’) 

CMACRO DISPLAY ’C HEX DB3 + 2BAH)]’] 
CMACRO FILL ‘°C HEX DBS + 1F4H]’] 
(MACRO MOVE °*( HEX DB3 + 34EH)’!] 
(MACRO SET °C HEX DB3 + 23CH)’] 
[MACRO READ ’C HEX DB4 + 187H]') 
[MACRO X °C HEX DBS + 11CH)’]) 

(MACRO CONVERTSWRITE *C HEX DB2 + 21H] "] 
(MACRO CRLF ’CHEX DB2 + 93H]'] 
[MACRO SAVE ’( HEX GB + 1F03H]'] 
CMACRO LOCK °C HEX GB + 3C54H)°] 
CMACRO INPUT °C HEX DB4 + 212H]'] 
CMACRO OUTPUT °C HEX DB4 + 21AH1"] 


ARRKRERKRKKKKKKK GENERAL PURPOSE MACROS *2%***XRXKKKKKKK/ 


CINT TOP USERSTOP ITOP STOP] 
CTOP:=51)] CUSERSTOP:=341 [ITOP:=30] ([(STOF:=46] 


[MACRO TERMINALSSTATUS °’C=8; CALL [MTS]’] 

CMACRO READSTERMINAL *C=9; CALL ([MTS]°] 

CMACRO WRITESTERMINAL LTR ’C=10; E={€LTR}]; CALL (CMTS]’] 
(MACRO TRUE °OFFH’ ] 

[MACRO PROMPT °7EH’] 

[MACRO ERRORSCHAR ’3FH’ ] 


PS REREKKREREREEK MODULE DECLARATIONS 2622828 2R RR RRR EEK / 


( DEBUGSENTRY, DEBUGSCMD) LABEL; 
DEBUGSSTACK(51) BYTE INITIAL (90); 
SAVSINTSSTACK (30) BYTE INITIAL (90); 
SAVSSSSSTACK (40) BYTE INITIAL (90); 
TRAPSLOC (6) BYTE INITIAL (9,9,9,0,90,9) ; 
I BYTE INITIAL (0); 

SAVHL DATA (6,96); 

SAVDE DATA (90,9); 

SAVSSAVE DATA (0,909,968); 


DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 


ERROR: PROCEDURE; 
SRR RRR RRR RAR RR EE BR EB A ABR BR BR A AR A I OK IE AEE OR OEE RIE IE EAE AR EZ 


“* THIS ROUTINE IS EXECUTED FOR ANY DEBUG ERROR */ 
7* CONDITIONS. THE STACK POINTER VALUE IS RESET “7 
7/* BECAUSE OF ITS UNKNOWN STATE AT THE TIME THIS 7 
“/* ROUTINE IS CALLED. AN ERROR PROMPT IS DISPLAYED */ 
7* AT THE TERMINAL. PROGRAM CONTROL IS PASSED TO */ 
7* DEBUGSCMD FOR FURTHER COMMAND PROCESSING. */ 
7* CALLED BY: DEBUGSCMD, GETSPARAM,GO,X,FILL,DISPLAY, */ 
L* SET, MOVE, INIT, CHECKSRDSPNTR, READ, KS 
7* DISKSIO 7 


A RAR RR RK RRR RRR ERK RR RAK ER BRR AR OR RR AE ORR RR KOR BRR RR RK / 
SP= . DEBUGSSTACK( [ USERSTOP ]) ; 
C(WRITESTERMINAL ’*’{ ERRORSCHAR] *1; 
GOTO DEBUGSCMD; 
END ERROR; 


DEBUGSENTRY: 
A RERRRRRRK RK KRRKR KAR KERR RRR RR RE RRR RRR IK AR RRR ERR RK KZ 


7* THIS ROUTINE IS THE ENTRY POINT OF THE DEBUGGER. */ 





/* PROGRAM CONTROL IS PASSED TO THIS ROUTINE WHEN A *7 
/* RST 2 INSTRUCTION IS EXECUTED. THE MACHINE STATE 7 
7* BEFORE THE RST INSTRUCTION WAS EXECUTED IS SAVED 7 
7/* FOLLOWED BY BREAKPOINT PROCESSING. */ 
TTT TST OSES SSP POSS SSSSSCCSSCSSSSSCSS CSCS S STS LoL Se SS he SS ee a 


DISABLE; 

/*# SAVE HL, DE REG PAIRS *~7 

SAVHL=HL; HL==DE; SAVDE=HL; 

DE=STACK; /7“* STORE OLD PC IN DE x*7 

STACK=PS¥; 

HL=2 + SP; /“* STORE OLD SP IN HL */7 

DE=DE-1; “* PC IS DECREMENTED DUE TO RST INST. xv 
PSW=STACK; 

SP= . DEBUGSSTACK([ TOP] ) ; 

7/# START PUSHING MACHINE STATE ONTO DEBUGSSTACK x7 
STACK=DE; STACK=HL; 

/* RETRIEVE HL AND STACK THEN DE AND STACK x7 
HL=SAVHL; 

STACK=HL; HL=SAVDE; STACK=HL; STACK=BC; STACK=PS¥Y; 
/* STORE FLAG BITS OF OLD PSW IN L REG x7 

DE=STACK; L=E; 

STACK= DE; 

/* DETERMINE CARRY, PARITY, AC, ZERO, AND SIGN BIT */7 
ae Prt a STORE IN DEBUGSSTACK( 23) -DEBUGSSSTACK( 18) *7 
B=90; C=6; 

IF (A=>L) CY THEN B=1; A=>A; 

IF (A=>A) CY THEN C=1; 


B=@; C=@; A=>A; 
IF (A=>A) CY THEN B=1; 


IF (A=>A) CY THEN C=1; 

STACK=BC; B=9; 

IF (A=>A) CY THEN B=1; 

STACK=BC; SP=SP+1; 

7* SAVE AWAY SYSTEM STATUS */ 

HL={SAVEJ; “* GET STK PTR WHICH WAS STORED IN SAVE */ 
/* DURING SERVICE CALL */ 

SAVSSAVE(0)=( A=MCHL)); HL=HL+1; 

SAVSSAVE(C 1)=CA=MCHL)); HL=HL+1; 

SAVSSAVE( 2) =CA=MC HL) D ; 

/* EXECUTE AS MTS CODE */ 

HL=( LOCK]; MC HL)=(A=MC HL) \ O1HD; 

BC=({ HEX ITOP]; 7* NUMBER OF BYTES TO SAVE */ 

DE=( INTS$STACK]; HL=.SAVSINTSSTACK; 

CALL [ MOVBUF] ; 

BCc=( HEX STOP]; 7“”* NUMBER OF BYTES TO SAVE x/7 

DE=(SVCS8STACK]; HL=.SAVSSSSSTACK; 

CALL { MOVBUF] ; 


I=(A=1); 7* INITIALIZE [=1 */7 
DO BY I1=(A=I+3) WHILE (A=I-7) !ZERO; 
HL=.TRAPSLOC; B=9; C=(A=I); HL=HL+BC; 
IF (A=MCHL); A::9) !ZERO 
(HL=HL+1; A=MC HL); A::0) !ZERO THEN 
DO; “* PC IS NON @ *Z 
HL=.TRAPSLOC; B=9; C=(A=I-1); 
/* DE POINTS TO ADDR CONTAINING OP CODE */ 
HL=HL+BC; DE=HL; 
@ees21): HiL=.TRAPSLOC: HL=HL+BC; 
7* HL POINTS TO ADDR IN WHICH TO RESTORE */ 
/* OP CODE */ 
C=M( HL); HL=HL+1; B=MCHL); 
MC BC) =( A=MC DE) ) ; 
END; 
END; 
ENABLE; 


[-cA-1)- 7* INITIAL I VALUE [8S 1 */ 
DO BY I=(A=1+3) WHILE (A=I-7) !ZERO; 
HL=.TRAPSLOC ; 
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/* OFFSET INTO TRAPSLOC LOADED IN C xv 
B=@; C=C A=I1); 
HL=HL+BC; DE=HL; 
HL=.DEBUGSSTACK([ HEX TOP-2]); 
IF (B=MCHL); A=MC DE); HL=HLt+1; DE=DE+r1l; A::B) ZERO 8 
(B=M( HL); A=MC DE); A::B) ZERO THEN 
DO; 
STACK=DE; 
A=’#°; [({WRITESTERMINAL ‘A’]; 
DE=STACK; L=1; 
CALL (CONVERTSWRITE] ; 


“* ZERO OUT TRAPSLOC *7 A=9; 
TRAPSLOC(@)=A; TRAPSLOC(1)=A; TRAPSLOC( 2) =A; 
TRAPSLOC( 3) =A; TRAPSLOC(4)=A; TRAPSLOC(S) =A; 


DEBUGSCMD: 
SP RRR RRB ERA BK EAR KEI IB IE EI AE IEE IR OR ERIE IO IB I A OR IR AE A OR OE RIE AE IR IE OK / 


A 
7 * 
eS 
S*® 
f* 


THIS ROUTINE IS THE DEBUG COMMAND PROCESSOR. THE */ 
COMMAND PROCESSOR ISSUES A CARRIAGE RETURN AND */ 
LINE FEED FOLLOWED BY THE DEBUG PROMPT CHARACTER. */7 
WHEN A VALID COMMAND HAS BEEN ENTERED, THE APPRO- */ 
PRIATE PROCESSING ROUTINE IS CALLED. */ 


A RR RRR RB RRR RR ROK BK RK BK RB RK TE BR OK OK OK TK OK ROR KOK OR OK OR AE RR OK OK OR OK ROK ROK KK OR ROK KZ, 


EOF 


CALL [CRLF]; 
CWRITESTERMINAL ‘CC PROMPT] ’°1; 
REPEAT; 
C TERMINALSSTATUS] ; 
UNTIL (€A::{€TRUE]) ZERO; 
{ READSTERMINAL] ; 
7* IF CHARACTER < °A’ OR > ’X’ IiGNORE AND */ 
/#* GET ANOTHER COMMAND / 
IF (c=’A’; A::C) MINUS N (C=’Y’; A::€) PLUS THEN 
GOTO DEBUGSCMD; 
L=(A=A-(H=’A’)); H=0; 


DO CASE HL; 

CALL ERROR; Te 7 

CALL ERROR; S#* Bs 

CALL ERROR; vats OL ara 

CALL [DISPLAY] ; 7/* D DISPLAY */ 

CALL ERROR; i Le aa) Se 

CALL (C(FILLI]; /* F FILL */7 

CALL [GO]; /* G GOTO */ 

CALL (HI1]; /* HEH - GOTO W/O INTERRUPTS */ 

CALL C INPUT]; /* YT MINI-DISK BINARY INPOT */ 

CALL ERROR; S%*& J *7 

CALL ERROR; S#& K */ 

CALL ERROR; S* L RL 

CALL [{ MOVE] ; /*% M MOVE x*/ 

CALL ERROR; S#* N *¥/7 

CALL C OUTPUT]; /* O MINI-DISK BINARY OUTPUT *7 

CALL ERROR; S*% P KL 

CALL ERROR; S* Q *F 

CALL { READ]; /* R READ HEX FORMAT */ 

CALL [CSET]; /* §S SET MEMORY *7 

CALL ERROR; ee T KS 

CALL ERROR; Be 47 

CALL ERROR; S& Vi Ss 

CALL ERROR; S* WS 

CALL EAI; /* X EXAMINE REGISTERS ¥*/7 
END; /* CASE */ 


GOTO DEBUGSCMD; 


ETT ESE SDELES ESOL ELS SIL EDS SS PSPSPS SL SDS StS DS SSS +t tS SS Se 
SRERREREKRERREREER DEBUG UTILITIES 8888808 RR Z 
A RRR RRR KR RRR RRR RI RK ROK OB KOE ROK OR OK OK ARR IK OB ARR KK AK OB BABB OB AB OR BB RK Z 





SRPAKKKKEKAKKA INTERMODULE LINKAGE MACROS ****®X*X*XX*XX*X*X*/ 


CINT DB1}] [CDB1:=2BA0H) 


[ MACRO 
C MACRO 


MIS ’1F06H’] 
ERROR °{ HEX DB1 + 13H)]°]) 


SRAERRKBRERAEER GENERAL PURPOSE MACROS #®®K*®K*RRRKRKKRKKS 


{ MACRO 
C MACRO 
C MACRO 
C MACRO 
C MACRO 
[ MACRO 
[ MACRO 
[ MACRO 
[ MACRO 
C MACRO 
[ MACRO 
C MACRO 
[ MACRO 
C MACRO 


TERMINALSSTATUS ’'C=8; CALL [MTS]’] 
READSTERMINAL ’°C=9; CALL [MTS]’] 


WRITESTERMINAL LTR °C=19; E={LTR]; CALL (MTS]’] 
TRUE ° OFFH?’] 

FALSE ’ 90H’ ] 

CR °@DH’ ] 

LF °@AH’] 

SLASH ’2FH’] 

COMMA ’°'2CH’] 

SPACE °’20H’] 

PERIOD ’2EH’] 


COLON ’'3AH’] 
DASH ’2DH’] 
WAITSREAD ’°’ REPEAT; 


[ TERMINALSSTATUS] ; 
UNTIL (A::{TRUEJ]) ZERO; 
{ READSTERMINAL] ’ J 


SRRARKKAKAAKAKA MODULE DECLARATIONS ®#®KRRKRKKKKKKARKKKKRRAKK/ 


DECLARE I BYTE INITIAL (9); 


CRLF: PROCEDURE; 


J RAR AR RRR RAR ABB BOR OR RR AR OR ORR BOR OR A OB OR AB OB BB OR IR OR BOR OR OR OBB BR ORR OR ORR AB RR OR RR BOR 


/* THIS ROUTINE OUTPUTS A CARRIAGE RETURN AND LINE 7 
7/* FEED TO THE TERMINAL. 7 
/* CALLED BY: DEBUGSCMD, DISPLAY wg 


A PRR ARAB AR AB AB RAR RAR AB ORR OR ORR OR BR OR AB AR OR A AB OR OR OB OR AR AB RB RR OR RRR RB ORR RR ROR RR RK 


CWRITESTERMINAL ’'{CRI]’]; 
{C{WRITESTERMINAL 'CLFI’]; 
END CRLF; 


BLANK: PROCEDURE; 
A RAR IR ARIA AR AR IRR RK I ROR ARR ARR ARB BIR IR RR OR IR RI OB OR RR ER OR OR AR OB BRK EE / 


/* THIS ROUTINE DISPLAYS A SPACE AT THE TERMINAL. */ 


7* CALLED BY: X,SET,DISPLAY */ 
S RRRRKKKKKAK KKK KKK AK KK KKK RK RK KK KK KK KKK KKK RK KK KK RK KEK A KK Z 


A=( SPACE] ; 
[ WRITESTERMINAL 
END BLANK; 


CONVERTSWRITE: PROCEDURE; 


°A’ I; 


ate ST PSS SS SS SS SSS SS SS SS Sb SS SS SS SS De SSS Se SD SS SS Se Se ee 


7* CONVERT AND WRITE BYTES TO THE TERMINAL. 


/* INPUT: DE - ADDRESS OF FIRST BYTE TO BE WRITTEN 


1% L —- WRITE FLAG 

ve @ - ONLY WRITE 1 BYTE, DE=DE+1 
1 1 - WRITE THIS BYTE AND PREVIOUS, 
7 DE= DE-2 

rae 2- WRITE THIS BYTE AND NEXT, 


1 
7* OUTPUT: DE - MODIFIED AS DESCRIBED ABOVE 
7* CALLED BY: DEBUGSENTRY, X, SET, DISPLAY 


DE- VETS 


3 - ONLY WRITE LOWER NIBBLE, DE=DE+1 


*K/ 
*/S 


A RRRKHHKKERHERKKKKRKK KKK KKK KKK AK KK RAH KK ARK AK KK KKK KK AA KAKA / 


H=8; BC=HL; 
DO CASE HL; 7* SET CHARACTER COUNT */ 
I=( A=2); /* DATA TYPE 9 <7 
I=( A=) ; 1 *® 1 */7 
l=( A=4); /* Paes a 
I=( A=1); 1k 37 
END; HL=BC; 
A=MC DE) ; 
C=A; 
IF (A*L; A::3) !ZERO THEN 





DO; “* IF NOT DATA TYPE 3 - USE MSN xv 


A=C; 
A=>>A; A=>>A; A=>>A;3 A=>>A; 
C=A; 
END; 
REPEAT; 
A=C 8 OFH; 
“* CONVERT THE CONTENTS OF A */ 


7* (ASSUMED IN THE RANGE @ - 15) */ 
7* TO A PRINTABLE HEX CHARACTER */ 
IF (A::10) MINUS THEN 

A=A + 30H /7* A=A-’O’ */ 
ELSE 

A=A ~- 10, + 41H; /* A=A~-10,+’°A’ */ 
STACK=HL; STACK=DE; 


[WRITESTERMINAL °A’']; /* WRITE CHARACTER */ 


DE=STACK; HL=STACK; 
IF (A=L; A::1) ZERO THEN 
DO; /* DATA TYPE 1 -~ DECREMENT ADDR IF 
7/* MSN 38 LSN OUTPUT 
T=(A=I-1); A=>>A; 
IF !CY THEN 
DE=DE-1; 


DO; “* DATA TYPES 0,2 OR 3 - INCR ADDR IF *- 


7* MSN 8 LSN OUTPUT 
1=€A=I-1); A=>>A; 


IF !CY THEN 
DE=DE+1; 
END; 
A=Mc DE) ; 
IF !CY THEN 


DO; “* IF MSB TO BE WRITTEN, MOVE TO LSB xv 


A=>>A3 A=>>A; A=>>A; A=>>7A; 
END; 
C=A; 
UNTIL ¢(A=I; A?:®) ZERO; 
END CONVERTSX¥RITE; 


GETSPARAM: PROCEDURE; 


*/ 


TRA ARR RAR KR RR EK MEE RAE ER RR RRR AR RR EE ARE OK OK OR ORB AB RE RB OE OEE OK AB ER RE OR RE EK / 


“* THIS ROUTINE READS AND RETURNS A HEX OR DECIMAL 
7* PARAMETER IN REGISTER HL. A PARAMETER HAS BEEN 


7* ENTERED IF REGISTER A IS ZERO, OTHERWISE REGISTER 


7* A IS NONZERO AND CONTAINS THE NEXT TO LAST CHAR-~ 


7* ACTER ENTERED. IF THE LAST CHARACTER ENTERED IS A 


7* CR THEN CY=1, OTHERWISE CY=9. 
7* INPUT: NONE 


7* QUTPUT: CY - INDICATES WHETHER LAST CHAR WAS A CR 


7 0 - NOT A CR 

7% ie ENT ERED 

7 A - INDICATES VALID PARAMATER ENTRY 
7% 0 ~ VALID PARAM ENTERED 

7 * NON @ ~ NEXT TO LAST CHAR ENTERED 
1% HL ~ VALUE OF VALID PARAMETER 


7* CALLED BY: GO,X,FILL,SET, DISPLAY, MOVE, READ, 
7 DISKSIO 


*/ 
* / 


7. RRR RRR ORB RR RR RR RR RE RK OB ER BR RE A AB ER RR ORB ER BR BB OR RRR BE OR RE BR RK 


(MACRO NOTSDELIMETER ’(A::(COMMA]) !ZERO 8 
(A::CSPACE]) !ZERO & (A::CCRI]) !ZERO °J 


DECLARE ( VALIDSPARAM, HEXSFLAG) BYTE INITIAL (6,9); 


VALIDSPARAM=(A=0); /7* INITIALIZE FLAGS */ 
BHEXSFLAG= ( A=C TRUE] ) ; 
{C WAITSREAD] ;y 


VALIDSPARAM= A; 
IF (A::(SLASH]) ZERO \ (A::(DASH]) ZERO THEN 


DO; “* STRIP OFF FIRST POUND SIGN OR MINUS SIGN */ 


C WAITSREAD] ; 
IF (A::(PERIOD]) ZERO THEN 


DO; /* SET-UP FOR DECIMAL PARAMETER */ 
VALIDSPARAM= A; 
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HEXSFLAG=( A=({ FALSE) ) ; 
C WAITSREAD}) ; 
END; 
HL=@; 
DO WHILE (CNOTSDELIMETER] ; 
“7* IF (CHAR > 9 AND CHAR < °A’) OR CHAR < °@’ x7 
7* OR CHAR > ’F’ ~ CALL ERROR */ 
IF CIF (A::CCOLON]) PLUS 8 (A::41H) MINUS THEN 
CY=1 ELSE CY=9@) 
CY \ (A::30H) MINUS \ (4::47H) PLUS THEN 
CALL [ ERROR]; 
7* CONVERT ASCII CHAR TO HEX DIGIT xv 
“/* IF DECIMAL PROCESSING AND CHAR > 9 ~- CALL ERROR x*/ 
A=A-30H; /* A=A-’O’ */ 
IF ¢(A::10) PLUS THEN 
DO; 
IF (C=A; A=HEXSFLAG; A::( FALSE]; A=C) ZERO THEN 
CALL [ERROR] ; 
A=A~7; 
END; 
IF (C=A; A=HEXSFLAG; A::{ TRUE]; A=C) ZERO THEN 
DO; /* HEX CONVERSION xv 
HL=8HL+HL,+HL,+HL,+HL; 7’* HL=HL*16 x*/ 
A=ANL; L=A; 


DO; /“* DECIMAL CONVERSION x/ 
DE=(HL=HL+HL); 7* DE=HL*2 *7 
HL=HL+HL,+HL,+DE; /’* HL=HL*8 + HL*2 x7 


D=@; E=A; 
HL=HL+DE; 
END; 
STACK= HL; 
VAL IDS PARAM= ( A=9) ; 
C WAITSREAD] ; 
HL=STACK; 


END; 7x DO WHILE *- 
IF (€A::CCRI)} ZERO THEN 
CcY=1 
ELSE 
CY=90; 
A= VALIDSPARAMNM; 
END GETSPARAM; 


EOF 


IESE SL OLE TELE SEED OLE S SEL ELE ELE SEES SSPE LESS LL EL EP PL SLL She Wa 
SRERRKKKKKKAK DEBUG PROCESSING PROCEDURES ***********%*/ 
ESE SL ELE SL ESLSE SESS SSE SESS SSE SSSSSPS SOLE SSS OSS SESS SSE LS SS Og 


SRRKRRRKEKKRE I[NTERMODULE LINKAGE MACROS #£#8K#RRKRHRKKRKS 


CINT DB1 DB2 M2B IB GB] (DB1:=2BA0H] ([ DB2:=2ECO0H] 
(M2B:=0600H] [1B:=3800H] (GB: =6000H)] 

CMACRO MIS ’{ HEX GB + 1F0O6H]’] 

(MACRO MOVBUF ‘'CHEX M2B + 41H]’"] 

(MACRO INTSSTACK ‘(HEX IB + 03H)’ ] 

(MACRO SVCSSTACK 'C HEX GB + 3C56H]’] 

(MACRO SAVSSSSSTACK ‘'( HEX DB1 + 29AH]’] 

(MACRO SAVSINTSSTACK ’( HEX DB1 + 27CH]’] 

CMACRO GETSPARAM ’C HEX DB2 + OBBH]’] 

(MACRO ERROR ’( HEX DBI + 13H]'] 

(MACRO DEBUGSSTACK 'CHEX DBI + 249H] 7] 

CINT DEBUGSSTK] [ DEBUGSSTK: =2DE9H] 

CMACRO TRAPSLOC ’C HEX DBI + 2C2H]"] 

CMACRO BLANK '({ HEX DB2 + 15H]’] 

{MACRO CONVERTSWRITE ‘(HEX DB2 + 21H] 7] 

CMACRO CRLF *CHEX DB2 + @3H]'] 

(MACRO SAVE ’(CHEX GB + 1F@3H)°] 

CMACRO SAVSSAVE ‘'CHEX DB1 + ODHI]'] 

[MACRO LOCK ’( HEX GB + 3C54H]’ 1] 


1v? 





PRERKREREEKKKE GENERAL PURPOSE MACROS 2K KKKKKKR KEK 


CINT TOP USERSTOP ITOP STOP] 

CTOP:=51) C USERSTOP:=34] [ ITOP:=S61 ([CSTOP:=40] 

(MACRO READSTERMINAL ’C=9; CALL {£MTS1]°] 

(MACRO WRITESTERMINAL LTR ’C=10; E=C({LTR]; CALL (MTS]°] 
(MACRO TRUE ’°OFFH’] 

(MACRO FALSE °00H’] 

(MACRO CR ’@DH’ ] 


SREKRBRKKKKEREK MODULE DECLARATIONS 2626262028 22R RRR KKK 


DECLARE (SAVCY,I,J,EXIT,HFLAG) BYTE INITIAL (0,0,0,9,9); 
DECLARE SAVHL DATA (0,9); 
DECLARE SAVDE DATA (0,96); 


GO: PROCEDURE; 

JAR AR AR AR AR AB RR AB OB AR AB OB OR AR OB OB AB OB OR RR ORB OB OK RE OR AR IS KR 8 8 RR RB OR IR ER ORR OR OOK” 
/* THIS ROUTINE PROCESSES THE G COMMAND AND IS THE / 
7* EXIT POINT FROM THE DEBUGGER. 6/7 
“7% CALLED BY: DEBUGSCMD, HI */ 
7 RRR RR ARR AA RRA RRR ORE AB TB OB OK AB OR AB OK OK OR EB OB OR IEE OR RK OK ORB RE EK KOR KK OR RK / 


SAVCY=( A=9) ; I=(A=90); 
REPEAT; 
CALL (€ GETSPARAMN] ; 
D=A; “7% SAVE ACCUMULATER */ 
IF CY THEN SAVCY=(A=1); 
IF (A=1I; A::@) ZERO THEN 
DO; “* RETURN WITH FIRST PARAM x*~ 
IF (A=D; A::0) ZERO THEN 
DO; “* STORE START POINT x7 
DE=HL; H=9; L=(€ HEX TOP-1]; 
BC=( DEBUGSSTACK] ; HL=HL+BC; 
M( HL)=(A=D); HL=HL-1; 
MC HL) =( A=E) ; 
END; 
END 
ELSE 
IF (A=I; Az:1) ZERO \ (A=]; A?::4) ZERO THEN 
“7* BREAK POINTS HAVE BEEN SPECIFIED x*- 
DO; 
HL==DE; “~*x DE NOW CONTAINS BREAK PT. TO STORE xv 
HL=( TRAPSLOC}] ; 
B=90; C=C A=I); 
7/* STORE LO BYTE OF BK PT *~ 
HL=HL+BC; MC HL) =( A=E) ; 
7“* STORE HI BYTE OF BK PT */ 
HL=HL+1; M( HL)=C A=D) ; 
“* STORE OP CODE x*/ 
HL=HL~-1,-1; M(HL)=(A=MCDE)); 
M( DE) =( A=9DTH) ; 
1=(A=1It2); 7x ADJUST INDEX x*/7 
END 
ELSE 
IF (A=D; A::@) !ZERO THEN CALL [ERROR]; 


l=(A=I+1); 7* ADJUST INDEX */ 
UNTIL (A=SAVCY; A::1) ZERO; 


A RAAB AR RRR RRR RAR RR RR AR RBI AB AE OR OO OK OB OR IB TE OE RE IE ACE EB BE OR RR RK KZ 
7* THE FLAG BYTE OF THE PSW IS UPDATED WITH CHANGES */ 
7% WHICH MAY HAVE BEEN MADE WHILE IN THE DEBUGGER x 
7* FLAG VALUES ARE STORED INTO THE BC AND DE REGIS- */7 
“7* TER PAIRS. THE PSW FLAG BYTE IS STORED IN THE */ 
7* H REGISTER PRIOR TO UPDATING [TS VALUES */ 
A HRAKR KARR KKK RR KAR ARK KBB BR RRB RE RRR RK RR KK RK KR KK 


DISABLE; 
/* RESTORE SYSTEM STATUS */ 
BC=( HEX ITOP]; /“* #* OF BYTES TO MOVE */ 
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DE=(SAVSINTSSTACK]; “* START ADDR x*/ 
HL=C INTSSTACK]; ~x DEST ADDR x*~ 
CALL ( MOVBUF] ; 
BC=( HEX STOP]; 
DE=( SAVSSSSSTACK] ; 
HL=(SVCSSTACK] ; 
CALL ([ MOVBUF] ; 
HL=C(SAVE]; DE=(SAVSSAVE]; 
MCHL)=(A=M(DE)); HL=HL+1; DE=DE+1; 
MC HL)=(A=M(DE)); HL=HL+1; DE=DE+1; 
7* STK PTR SAVED IN SVC CALL RESTORED x*/ 
M( HL) =( A= MC DE) ) ; 
7% RESET LOCK BYTE */ 
HL=( LOCK]; MC HL)=(A=M(C HL) & @OFEH); 
“*® ADJUST STACK POINTER x*~ 
SP=( HEX DEBUGSSTK + USERSTOP] ; 
BC=STACK; DE=STACK; HL=STACK; 
A=>>€C; A=<H; £H=A; /* LOAD SIGN BIT x*-/ 
A=>>B; <A=<H; /* LOAD ZERO BIT x- 
A=<<A; H=A; 7“* ADJUST UNUSED BIT *- 
A=>>E; A=<H; 7* LOAD AC BIT *- 
A=<<A; H=A; 7”* ADJUST UNUSED BIT x*- 
A=>>D; A=<d; “7* LOAD PARITY BIT xX*/ 
A=<<SA; H=A; 7* ADJUST UNUSED BIT xv 
A=>>L; A=<H; B=A; /* LOAD CARRY BIT, STORE UPDATED x/ 
/* FLAG BYTE OF PSW IN E. x*7 
STACK=BC; SP=SP+t1; 


7* POP MACHINE STATE AND OLD SP AND PC */ 


PSW=STACK; 

BC=STACK; DE=STACK; HL=DE; 

SAVDE= HL; HL=STACK; SAVHL=HL; 

HL=STACK; DE=STACK; /* GET SP AND PC x*/ 

SP=HL; STACK=DE; 

HL=SAVDE; DE=HL; HL=SAVHL; 

STACK=PSW; 

IF (A=HFLAG; A::CFALSE]) ZERO THEN “* HFLAG NOT SET *v 
ENABLE; 

HF LAG=( A=(€ FALSE]); 

PSW=STACK; RETURN; /“*POP PC OFF STACK x*~ 

END GO; 


SETSUP: PROCEDURE; 
7, ARR ARR RR OR OR ROR OR RR ROR OB OR OB OB OB ROR OR ROB BIR OR ORR KR OR 8 ROR AR OR ORE 8 HOR OB OBR ROR OE ROK ROK 
/* ROUTINE TO LOAD REGISTER DE WITH ADDRESS OF BYTE ahd 
/* OR BYTES TO BE DISPLAYED AND REGISTER L TO TYPE OF xv 
/* DISPLAY. */ 
/* CALLED BY: X 7 
7 RRR RR RRR OR ORR OR RB ROR OB ROR OR OB OR AB OR OR ORR OB OR ORB OB OR ROB OB ROR TR ROR ROR OB OR ROR OR RRR ROR KZ 

BC=BC+1; E=( A=M(BC)); 

BC=BC+1; D=( A=M(BC)); 

BC=BC+1; L=( A=M( BC)); 

BC=BC+1; /x POSITION POINTER TO NEXT ENTRY ¥*/ 

END SETSUP; 


K: PROCEDURE; 
tees eee eo KK KKK EK KKK KK KK KKEKKRKKKKKRKKKKRKKKKKEKKKKKRKE / 


/* THIS ROUTINE IS USED TO EXAMINE AND OPTIONALLY 7 
/* MODIFY REGISTERS. */ 
/* CALLED BY: DEBUGSCMD */ 


S RRR KK RARAK KR RK KK ER RK RR KR KR RE RK IB OR A OK KR ER ROKR RE KK KZ 
7* REGISTER POINTER TABLE - POINTS TO LOCATION IN x*~7 
/*& DEBUGSSTACK FOR REGISTER CONTENTS. FIRST ENTRY *7 
7* 18 ASCII CODE CODE FOR REG ID, SECOND ENTRY IS «7 


/* DEBUGSSTACK ADDRESS AND THIRD ENTRY IS REG Sa 
/* TYPE - 3 FOR NIBBLE, 8 FOR BYTE AND 1 FOR TWO */ 
/k BYTES. */ 


DECLARE REGSPNTR(44) BYTE INITIAL 
7* C */(43H, (HEX DEBUGSSTK+ TOP-131,3, 
7* KE */ 45H,(HEX DEBUGSSTK+TOP-14] ,3, 
/* | */ 49H,( HEX DEBUGSSTK+TOP-15],3, 
7k Z */ SAH, (HEX DEBUGSSTK+tTOP-16],3, 


Leo 





*/ 4DH,( HEX DEBUGSSTK+TOP-17],3, 
*/ 41H,(HEX DEBUGSSTK+TOP-111,9, 
*/ 42H,( HEX DEBUGSSTK+TOP-9] ,1, 
44H,( HEX DEBUGSSTK+TOP-7] , 1, 
*/ 48H,{ HEX DEBUGSSTK+TOP-5] ,1, 
*/ SSH, [HEX DEBUGSSTK+TOP-3] , 1, 
*/ JOH, HEX DEBUGSSTK+TOP-11,1); 


4 
TMH W i> x 
x 
~ 


[READSTERMINAL]; /“* CHECK FOR CR x*~7 
IF (A::CCR]) ZERO THEN 
DO; /”* CR ENTERED - DISPLAY ALL REGISTERS ¥*/ 
BC=.REGSPNTR( 9) ; 
STACK= BC; 
I=( A=5); 
REPEAT; 7* DISPLAY FLAG BITS x*-7 
BC=STACK; 
A=MC BC) ; 
STACK= BC; 
[ WRITESTERMINAL ’°A’]; 
BC=STACK; 
CALL SETSUP; 
STACK=BC; 
CALL [CONVERTSWRITE) ; 
UNTIL (€I=(A=I-1); A?::9) ZERO; 
I=( A=6); 
REPEAT; /7“* DISPLAY REGISTER VALUES */ 
CALL (€ BLANK] ; 
BC=STACK; 
A=MC BC) ; 
STACK=BC; 
{[WRITESTERMINAL ’A’]; 
=*=°*; [WRITESTERMINAL ‘A’]; 
BC=STACK; 
CALL SETSUP; 
STACK=BC; 
CALL [CONVERTSWRITE] ; 
UNTIL (I=(A=I-1); A::0) ZERO; 
BC=STACK; 
END /* DISPLAY ALL REGISTERS */ 


DO; /* REGISTER MODIFICATION x*7 
E=A; 
EXIT=(€ A=C FALSE] ) ; 
DO BC=.REGSPNTR( 90) BY BC=BCt1,+1,+1,+1 
WHILE (A=EXIT; A::CFALSEJ]) ZERO 32 
(HL=.REGSPNTR( 43); A=L-C; A=H--B) PLUS; 
IF (A=M( BC); A::E) ZERO THEN 
DO; /”* REGISTER MATCH */ 
STACK= BC; 
C WRITESTERMINAL °A’d; 
=’=°*;, [WRITESTERMINAL °A’]; 
BC=STACK; STACK=BC; 
CALL SETSUP; 
CALL (CONVERTSWRITE] ; 
CALL ( BLANK] ; 
CALL [ GETSPARAM] ; 
IF !cY THEN 
CALL {ERROR]; “* NO CR ENTERED */ 
BC=STACK; 
IF (A::@) ZERO THEN 
DO; /* STORE REG VALUE */ 
STACK= HL; 
CALL SETSUP; 
BC=STACK; /7* RESTORE NEW VALUE */7 
IF (A=L; A::1) ZERO THEN 
DO; 
M( DE) =( A=B) ; 
DE=DE~-1; 
END; 
MC DE) =( A=C) ; 
END; 
EXIT=( A=[ TRUE] ) ; 
END; /“* REGISTER MATCH */ 
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END; “* DO WHILE x*/ 
If CASEXIT; A::{FALSE]) ZERO THEN 
CALL CERROR]; /7* NO REGISTER MATCH FOUND *-/ 
rene. “*® REGISTER MODIFICATION x*/ 


FILL: PROCEDURE; 
A RAR ARR AR ARR EAR AR RR RR RK OK RR EK ER KE RK OK EK EE EK EK KKK OK KOR EK OK OR EK 
“/* THIS ROUTINE IS USED TO SET A MEMORY BLOCK TO A x/ 
7* SPECIFIED VALUE. THE ROUTINE INPUTS THE THREE 7 
7*# REQUIRED PARAMETERS: START ADDRESS, FINAL ADD- */ 
7* RESS, AND BYTE CONSTANT. THE CONSTANT IS THEN 17 
7/* PLACED IN THE START ADDRESS THRU THE FINAL ADD- *-7 
/* RESS. */ 
7* CALLED BY: DEBUGSCMD */ 
A RR RRR RHR RRR RRR BRR RRR RRR RR KR RR RR KK KK KR KKK KORE KEKE / 
CALL (GETSPARAM]; /’* INPUT START ADDRESS xv 
IF CY \ (€A::9) !ZERO THEN 
CALL CERROR]; 
STACK= HL; 
CALL (GETSPARAM]; /“* INPUT FINAL ADDRESS x*/ 
IF CY \ €A::9) !ZERO THEN 
CALL CERROR) ; 
STACK= HL; 
CALL (GETSPARAM]; ~“* INPUT BYTE CONSTANT x*~7 
IF !cY \ €A::@) !ZERO THEN 
CALL [{ ERROR]; 
D=L; HL=STACK; BC=STACK; 
/* HL=FINAL ADDR, BC=START ADDR xv 
IF (A=L~-C; A=H~--B) MINUS THEN 
CALL {ERROR}; “* FINAL ADDR < START ADDR x7 
REPEAT; /“* PERFORM FILL */7 
A=D; 
M( BC) =A; 
BC=BC+!1; D=A; 
7/* FINAL ADDR < START ADDR */ 
UNTIL (A=L-C; A=H--B) MINUS; 
END FILL; 


SET: PROCEDURE; 
SRR RRR AR AR RE RE RK RRR ERE RR A AR AR OE RE RE AR RR A RE AR A RE RRR KEE 7 


7* ROUTINE WHICH ALLOWS MEMORY LOCATIONS TO BE SET */ 


7* AND OPTIONALLY ALTERED. THE ROUTINE INPUTS ONE */ 
7/* REQUIRED PARAMETER WHICH IS THE ADDRESS AT WHICH *K/ 
/* MEMORY EXAMINATION IS TO BEGIN. */ 
7* CALLED BY: DEBUGSCMD */ 


SA RRRRRERREKK ERE RERRERK EERE RRR ERR KR RR KK RE RE KR ER EEK EK KE KK 
DECLARE SETSLOC(2) BYTE INITIAL (0,0); 
EXIT=( A={ FALSE]) ; 

CALL (GETS8PARAM]; 7* GET SET LOCATION x*7 
IF !CcCY \ (€A::@) !ZERO THEN 
CALL CERROR]; ~“* ERROR IF NO SET LOCATION ENTERED */ 
SETSLOC=HL; /’* SAVE SET LOCATION */ 
DO WHILE (A=EXIT; A::C(FALSE]) ZERO; 
/* WRITE OUT ADDRESS FOLLOWED BY CONTENTS *~/ 
DE= .SETSLOC( 1); L=1; CALL CCONVERTSWRITE] ; 
CALL ( BLANK]; 
HL=SETSLOC; DE=HL; L=0; CALL ({CONVERTSWRITE] ; 
CALL ( BLANK] ; 
7* PROCESS INPUT */ 
CALL { GETSPARAM] ; 
IF '!CY THEN /7’* NO CR ENTERED - ERROR */ 
CALL ( ERROR] ; 
IF (€A::0) ZERO THEN 
DO; /“* VALUE ENTERED - SAVE IT x*/ 


DE= HL; 

HL=SETSLOC; 

MC HL)=E; SETSLOG=( HL=SETSLOC?+ 1) ; 
END 


DO; 7x SLASH, CR OR MINUS ENTERED */ 
IF (A::2FH) ZERO THEN /“* SLASH ENTERED - EXIT */ 


EXIT=( A=€ TRUE] ) 


181 





ELSE 
DO; 7* DECR SET LOC IF MINUS x7 
7* ELSE INCR SET LOC */ 
IF (A::2DH) ZERO THEN 
SETSLOC= ( HL=SETSLOC-— 1) 
ELSE 
SETSLOC=( HL=SETSLOC+1) ; 
END; 
END; 
END; /7* DO WHILE */7 
END SET; 


DISPLAY: PROCEDURE: 
IETS ESTELLE ELSE LE LES SDL EL SPO SES SPEDE SESE OS OSS SSO SSeS Sb Sad 
/* THIS ROUTINE DISPLAYS 4 LINES OF MEMORY IN HEXA- a7 
7* DECIMAL AND ASCII FORMATS. EACH LINE DISPLAYS 16 */ 
/* BYTES OF DATA. MEMORY [S DISPLAYED FROM THE BZ 
7* CURRENT DISPLAY LINE. THE DISPLAY LINE IS AUTO- 7 
/* MATICALLY UPDATED BY THE PROCEDURE AS MEMORY IS 7 
7* DISPLAYED OR MAY BE SET BY THE COMMAND DS WHERE */ 
7* S IS THE NEW DISPLAY LINE. Nay? 
7* CALLED BY: DEBUGSCMD a 
SP RRR KERR ARERR RRR RRR RB EK RE ROK EE RK RR OK OR OR ETE EK EEE AE KK OK / 
DECLARE DISPLAYSLINE(2) BYTE INITIAL (00H,40H) ; 
CALL £ GETSPARAM] ; 
IF 'CY THEN /’* CR WAS NOT ENTERED AS DELIMETER *-/ 
CALL CERROR] ; 
IF (A::90) ZERO THEN 7x SET NEW DISPLAY LINE x*/ 
DISPLAYSLINE=HL; 
I= ( A=4) ; /#* SET LINE COUNTER x7 
REPEAT; /* DISPLAY LINE x7 
HL=.DISPLAYSLINE( 1) ; 
DE=HL; L=1; 
CALL [CONVERTSWRITE]; /“* WRITE ADDRESS */7 
CALL (BLANK); CALL (€ BLANK]; 
HL=DISPLAYSLINE; 
DE=HL; L=2; 
J=( A=8); 
REPEAT; 7* WRITE OUT HEX DATA */ 
CALL ([CONVERTSWRITE] ; 
STACK=HL; STACK=DE; 
CALL ( BLANK] ; 
DE=STACK; HL=STACK; 
UNTIL (J=€(A=J-1); A::0) ZERO; 
CALL [{ BLANK] ; 
HL=DISPLAYSLINE; 
J=(A=16); 
BREEEAL: 7* WRITE OUT ASCII DATA *7 
A=MC HL) , 87FH:; 
7* PRINT A PERIOD FOR CHARS ? SPACE OR RUBOUT x7 
IF (A::2@H) MINUS \ (A::7FE) ZERO THEN 
Ace 
STACK= HL; 
(WRITESTERMINAL ’A’]; 
HL=STACK, +1; 
UNTIL ¢(J=( A=J-1); A:i:9) ZERO; 
CALL CCRLFIJ; 
HL=DISPLAYSLINE, +( DE= 16) ; 
DISPLAYSLINE=HL; 
UNTIL (1=¢€AzI-1); A::@) ZERO; 
END DISPLAY; 


MOVE: PROCEDURE: 

SRR RRR RRM RR BE KER EE BE BE AR RE AR OE OK OE FEE EK OR RK KZ 
7* THIS ROUTINE MOVES A SPECIFIED NUMBER OF BYTES FROM*/ 
/* ONE SECTION OF MEMORY SPECIFIED BY THE USER TO AN- */ 
/* OTHER SECTION. GETSPARAM IS CALLED TO DETERMINE */ 
7* THE START AND DESTINATION ADDRESSES AS WELL AS THE */ 
/* NUMBER OF BYTES TO BE MOVED. 7 


7* CALLED BY: DEBUGSCMD. */ 
SRRRKK KER KER EKER EER REE RRR EK E KEK REA RK ERE ER KEE RK BER BRR EZ 
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I=(A=0); SAVCY=A; 
REPEAT; 
CALL ( GETSPARAM ; 
IF CY THEN SAVCY=(A=1); 
IF (A=I; A::0) ZERO THEN 
STACK=HL “* SAVE START ADDRESS *-7 
ELSE 
IF (A=I1; A::1) ZERO THEN 
a /* SAVE DESTINATION ADDRESS x*/ 
IF (A=I; A::2) ZERO THEN 
DO; 
B=H; C=L; “x BC GETS # OF BYTES TO BE MOVED */ 
HL=STACK; “* HL GETS DESTINATION ADDRESS x*-~ 
DE=STACK; “* DE GETS START ADDRESS */ 
REPEAT; 
M( HL) =( A= MC DE)); 
HL=ALt+1; DE=DEt+1; 
UNTIL €BC=BC-1; A=0; A::C) ZERO 8 (A::B) ZERO; 
END; 
T=( A=I+1); 
UNTIL (A=SAVCY; A::1) ZERO; 
IF (A=I; A::3) !ZERO THEN CALL (ERROR); 
END MOVE; 


HI: PROCEDURE; 
ETT TEL EPCS LC SOL SSS SCSS SSCS SOOSSSSSSSCSSSSSSOSS OSL SL et + og 
7/* THE H ROUTINE SETS A FLAG CALLED HFLAG WHICH ¥*/ 
“7* CAUSES AN EXIT FROM THE GO ROUTINE WITH IN- *7 
/* TERRUPTS DISABLED. THIS PROCEDURE IS NECES- */ 
7* SARY FOR THE DEBUGGING OF CRITICAL SECTIONS */ 
/* OF CODE; THAT IS PORTIONS IN WHICH THE INTER- */ 
7* RUPT HANDLER HAS BEEN DISABLED. *S 
/* CALLED BY: DEBUGSCMD 7, 
ECTS LESS SELES SLOSS PESOS LO SLES eS She Pete tL St DS et St ag 

HF LAG=( A=( TRUE) ) ; 

CALL GO; 

END HI; 


EOF 


A RRR R RAK RRA KK RA KKB HRA RKR K R  ROK  EROK  OR R B AB OR AB R AR R AR R RR RRARKRB KH 


SRRREEAE DEBUG PROCESSING PROCEDURES - DISK [70 ******%/7 
S RRR KAR KKK KAKA BRR KKK RR KK RR KR KKK EK RR OR RR OR OK OK KK EK EEK KZ 


SRRBRARRAKKRAKAKKK TNTERMODULE LINKAGE MACROS #®#***** «#447 


CINT DB1 DB2 M2B GBI] 

(M2B:=0600H] (DB1:=2BA@H] (DB2:=2ECOH] (GB:=9] 
(MACRO MTS °1F06H") 

(MACRO ERROR ’{ HEX DBI + 13H)’) 

(MACRO GETSPARAM °C HEX DB2 + 9BBH]’ ] 
(MACRO DMTSFLAG ‘°C HEX GB + SEBDH]*] 

(MACRO DMTSBOE ’( HEX GB + 3EDDH]'] 

(MACRO DMTSEOE ’( HEX GB + 3F1DH}’] 

(MACRO MDBUF ’C( HEX GB + 3C7EH)°] 

(MACRO MDBUFSMAX ‘(HEX GB + 3CTEH + Si2]*] 
(MACRO MINISDISK 'CHEX M2B + 54H]°] 


SRERRRRAERERKKKEK GENERAL PURPOSE MACROS ***#®®RERKREREAKA/ 


[MACRO WRITESTERMINAL LTR °C=10; E=CLTR); CALL (M¥FS1°] 
(MACRO SUBSHLSDE ’L=(A=L-E); H=(A=H--D)'] 

(MACRO TRUE °OFFH’ ] 

(MACRO FALSE ’ 90H’ ) 


SRK AREER ERR, MODULE DECLARATIONS RRR RRR RRR KK 
DECLARE CHARSPNTR(2) BYTE INITIAL (6,4); 


DECLARE RECSPNTR(2) BYTE INITIAL (9,0); 
DECLARE CSSECTOR(2) BYTE INITIAL (6,9); 
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DECLARE RECSLEN BYTE INITIAL (@); 
DECLARE BOE(2) BYTE INITIAL (9,90); 
DECLARE EOE(2) BYTE INITIAL (0,9) ; 
DECLARE EXIT BYTE INITIAL (@); 


INIT: PROCEDURE; 
A RRRBRK RRR BR RRB RR AER RRR AB RRR RK BR RR EK OR KK BR RE OR ER ER KK KR KKK / 
7* ROUTINE WHICH VERIFIES THAT DISK EXISTS AND SETS */ 


7/* BOE AND EGE OF DISK INTO BOE AND EOE VARIABLES. */ 
7* INPUT: L - DISK NUMBER */ 
/* OUTPUT: BOE AND EOE VARIABLES SET */ 
7* CALLED BY: READ */ 


SBRRBRKRRRBRR RAB RRR RRR RRR BRR RRB BOR RRB ROR RRR ORO AR ORR OR ROR ORR ROK ORE KOK 

IF €A=L; A::32) PLUS THEN /x* INVALID DISK NUMBER x~- 
CALL (C ERROR] ; 

H=9; C=L; 

DE=( DMTSFLAG]; HL=HL+DE; 

IF (A=>MCHL)) !CY THEN /7’* DISK DOESN’T EXIST *-7 
CALL CERROR] ; 

/* COMPUTE BOE AND EOE */ 

H=90; L=(C=( A=<<C)); 

DE={ DMTSBOE]; HL=HL+DE; 

BOE(@®) =( A=MCHL)); HL=HL+1; BOE( 1)=( A=MCHL)); 

H=90; L=C; 

DE=({ DMTSEOEJ]; HL=HL+DE; 

EOE( ®) =( A=MCHL)); HL=HLt+1; EOE( 1)=( A=MCHAL)); 

END INIT; 


CHECKSRDSPNTR: PROCEDURE; 
eT TESTED ELSES LE SSS SESS SSL SS SSS SELES SSS SS SSE SSS PS SSS SSS SS oe 
7* ROUTINE TO CHECK THE CHARACTER POINTER. IF CHARS A 
/* PNTR EXCEEDS THE BUFFER LENGTH, THE NEXT SECTOR [8S */¢ 
7* READ INTO MEMORY AND POINTERS ARE UPDATED. 7 
7* CALLED BY: GNC */ 
SERB RRR EKA RR RBBB KBB BRB KB EK RB ROR RK OB BE BR BB OR BOK BRR BR RK EZ 
STACK=HL; STACK=BC; 
HL=CHARSPNTR; DE={ MDBUFSMAA] ; 
IF (C{SUBSHLSDE]) PLUS THEN /“* CHARSPNTR >=MDBUFSMAX */ 
DO; 
HL=EOE; DE=HL; 
7* COMPUTE CSSECTOR - EOE AND TEST °90 */7 
HL=CSSECTOR, —-1; 
IF (CSUBSHLSDE]) PLUS THEN 
DO; /*x NO MORE DISK SPACE */ 
A=’°S’; CWRITESTERMINAL °A’]; 
A=’P’; (WRITESTERMINAL °A’]; 
CALL [ERROR] ; 
END; 
/* READ DISK BUFFER */7 
BC=( HL=CSSECTOR) ; 
DE={MDBUF]; L=1; =7“* READ */7 
CALL (CMINISDISK] ; 
IF (A::CTRUE]) ZERO THEN /’* DISK ERROR */ 
CALL [ERROR] ; 
CSSECTOR= ( HL=CSSECTOR, +1); 
7* COMPUTE RECSLEN=RECSLEN~-( CHARSPNTR - RECSPNTR) *7 
HL=RECSPNTR; DE=HL; 
HL=CHARSPNTR; 
{SUBSHLSDE]; DE=HL; 
H=9; L=(A=RECSLEN) ; 
(SUBSHLSDE1; RECSLEN=( A=L); 
/* RESET REC AND CHAR POINTERS */ 
HL=CHARSPNTR; DE=512; 
[SUBSHLSDE]; CHARSPNTR=HL; 
RECSPNTR= HL; 
END; 
BC=STACK; HL=STACK; 
END CHECKSRDSPNTR; 


GNC: PROCEDURE; 
LS RRRR ERK RRR RRR RR RR KERB BK KE EB RR ABR OR OR AOR OR OR OR OB OB OBR RRR OR OR OK ROR / 


7* ROUTINE TO RETURN NEXT CHARACTER. THIS ROUTINE * 
/* ELIMINATES SYCOR INFORMATION FROM THE RECORD AND */ 
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7* CONVERTS CHARACTER TO HEX IF VALID VALUE. THE KS 
7* FORMAT OF THE SYCOR FILE FOLLOWS: */ 
7* ABCCCCCCCCCCCECCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCBA x*/ 
7/* WHERE A IS 90H IF THE RECORD IS ACTIVE OR 80H IF */ 
/* THE RECORD HAS BEEN DELETED. B CORRESPONDS TO THE */ 


/* NUMBER OF C’S (OR BYTES) IN THE RECORD. a 
S* 7 
/* OUTPUT: IF HEX CHAR READ 7 
7% CY=9@, A=HEX VALUE */ 
7X IF NOT A HEX CHAR */ 
® CY=1, A=ASCII CHAR */ 
7* CALLED BY: READ, GNB */ 


A RERKKKKAKKKHKHHKKKKKRKAKKKKHKHKAKKRKKKKKKAKKKKKKKKKKKKKKRKKKKKK/Z 
STACK=BC; STACK=DE; STACK=HL:; 
CALL CHECKSRDSPNTR; /7* INSURE CHARACTER IN MEMORY */ 
B=-9@; C=( A=RECSLEN) ; 
HL=RECSPNTR; DE=HL; HL=CHARSPNTR; 
/* IF CHARSPNTR - RECSPNTR = RECSLEN */ 
Uae 3 THEN PROCESS NEW SYCOR RECORD */ 
IF (CSUBSHLSDE]; A=H;: A::B) ZERO 8 (A=L; A::€) ZERO THEN 
DO; /* PROCESS NEW SYCOR RECORD */ 
EXIT=( A=€ FALSE) ; 
REPEAT; 
HL=CHARSPNTR; 
B=M( HL); “* SYCOR RECORD EXISTENCE FLAG *7 
CHARSPNTR=( HL=HL+ 1) ; 
CALL CHECKSRDSPNTR: 
RECSLEN=( A= MC HL) ,+1,71)3 
CHARSPNTR= ( HL= HL+ 1) ; 
CALL CHECKSRDSPNTR; 
IF ¢(A=<B) CY THEN 
DO; /7* SYCOR RECORD DELETED */ 
B=@; C=(€ A=RECSLEN) ; 
/* CHARSPNTR=CHARSPNTR+RECSLEN */ 
CHARSPNTR=( HL=HL+tBC?) ; 
CALL CHECKSRDSPNTR; 
END 
ELSE 
EXIT=( A=€TRUE]); =7* SYCOR RECORD VALID */ 
UNTIL (A=EXIT; A::€TRUEJ) ZERO; 
RECSPNTR=HL; /“* RECSPNTR=CHARSPNTR */ 
END; /* PROCESS NEW SYCOR RECORD */ 
HL=CHARSPNTR; A=MCHL) ; 
/* IF (CHAR > °9’° AND CHAR < ‘A’) OR ¥/ 
/* CHAR < °98’ OR CHAR> 'F’ */S 
IF (IF (A::3AH) PLUS 8 (A::418H) MINUS THEN 
CY=1 ELSE CY=9@) 
CY \ (A::3@H) MINUS \ (A::47H) PLUS THEN 
CY=1 7* NOT A HEX CHAR */7 


ELSE 
DO; /* HEX CHAR - CONVERT #*/ 
A= A-30H; 
IF (A::10) PLUS THEN 
A=A-7; 
CY=9; 
END; 


CHARSPNTR= ( HL=CHARSPNTR, +1); 
HL=STACK; DE=STACK; BC=STACK; 
END GNC; 


GNB: PROCEDURE; 
SP RRREREEREREER ER ER EEE REE RE EERE KEKE ERA RAAB RRA AA EF 


/7* THE GET NEXT BYTE ROUTINE READS TWO CHARACTERS AND */ 
7* FORMS A BYTE. THE CHECKSUM IS ALSO UPDATED IN THIS ¥*/ 


7*& ROUTINE. */ 

7* INPUT: B - CHECKSUM */ 

/* OUTPUT: A - BYTE VALUE */ 

1% B - UPDATED CHECKSUM K/ 

/* CALLED BY: READ */ 

SHREK KKK IRI RRR EIR ER RR REE ER RE ERE AER KHER ERR ER RRR Z 
STACK=DE; 


CALL GNC; Az=<<A;: A2<<A;: A=<¢AS D=(€ A=< <A); 
CALL GNC; D=(A=AtD); 


189 





B=(A=B+D); /* UPDATE CHECKSUM x*/ 


READ: PROCEDURE; 
SRREBKAREKKRKKKKKAK KAKA BEKKAK KARR AKKK ABABA BK ABB KAKA ERK BK / 
“* THIS ROUTINE READS DATA FROM A SYCOR FILE ON THE */ 


/* MINI-DISK IN INTEL HEX FORMAT AND LOADS MEMORY. 7, 
/* ONE REQUIRED PARAMETER IN INPUT. THIS PARAMETER */ 
7/* CORRESPONDS TO THE <N> IN THE SYCOR FILENAME +7 
/*® .DISKSN?. */ 
/* CALLED BY: DEBUGSCMD */ 


ETT TSO SSS SS OS OSS SS LSS SSS SS CLE SLE SPSS SSS CSCS L SS SSCL SSS LS + + ie 
DECLARE (START,DONE) LABEL; 
CALL ( GETSPARAM] ; 
IF !CY N (A::0) !ZERO THEN 
CALL CERROR]; /”x* INPUT ERROR */ 
CALL INIT; “7* CHECK FOR DISK VALIDITY */ 
/* INITIALIZE VARIABLES */ 
CSSECTOR=(HL=BOE); /7* SET CURRENT SECTOR NUMBER */ 
CHARSPNTR= ( HL=( MDBUFSMAX]); RECSPNTR=HL; 
RECSLEN=( A=9) ; 
START: 
/* SCAN TO SEMI-COLON x*/ 
DO WHILE (CALL GNC) !CY 8 (A::3AH) !ZERO; 
END; 
B=0; /* CLEAR CHECKSUM */ 
/* GET RECORD LENGTH */ 
CALL GNB; C=A;3 
IF (A::0@) ZERO THEN 
GOTO DONE; “* 9 LENGTH RECORD - NORMAL TERMINATION */7 
/* GET LOAD ADDRESS x*/ 
CALL GNB; H=A; CALL GNB; L=A; 
7* STRIP OFF RECORD TYPE *~ 
CALL GNB; 
REPEAT; /“* FILL DATA LOCATIONS #7 
CALL GNB; 
M( HL) =A; 
UNTIL (HL=HL+1; C=(A=C-1); A::0) ZERO; 
IF (CALL GNB; A=B; A::®9®) !ZERO THEN 
DO; “* CHECKSUM ERROR x*/ 
A=°C’*; CWRITESTERMINAL ‘'A‘]; 
A=’S’; CWRITESTERMINAL ‘A’]; 
CALL [ERROR] ; 


END; 
/* ADJUST CHARSPNTR TO POINT TO START OF */7 
7* NEXT SYCOR RECORD */ 


H=@; L=( A=RECSLEN); DE=HL; 
CHARSPNTR= ( HL=RECSPNTR, +DE) ; 
GOTO START; 

DONE: 
END READ; 


DISKSIO: PROCEDURE; 

SREREREREREEREERERAE REEL RARE RARER RABE RAK RRB A AR ZK 
/* THIS ROUTINE UTILIZES CALLS TO THE MINISDISK */ 
7* PROCEDURE TO READ OR WRITE SPECIFIED NUMBERS */ 
7/* OF SECTORS BETWEEN DISK AND MEMORY. THE DMA *K/ 
7* ADDRESS IS SPECIFIED IN THE COMMAND. */ 
7* CALLED BY: DEBUGSCMD */ 


S RRR RRR RRR REE ERR EE ER BBE RK BRR RE RB BR RE RRR RB RRR RK Z 
DECLARE (INPUT, OUTPUT, START1) LABEL; 
DECLARE (DISKSOP, NSSEC) BYTE INITIAL (0,9); 
INPUT: 
DISKSOP=( A=1) 3 
GOTO START1; 
OUTPUT: 
DISKSOP=( A=2) ; 
START1: 


CALL ( GETSPARAM] ; 
IF CY \ (A::0) !ZERO THEN CALL [ERROR] ; 
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STACK=HL; “* SAVE THE STARTING SECTOR # */ 
CALL [ GETSPARAM ; 
IF CY \ (A::®) 'ZERO THEN CALL CERROR] ; 
STACK=HL; “* STACK START ADDRESS */ 
CALL [ GETSPARAM] ; 
IF !Cy \ (A::@) !ZERO THEN CALL ( ERROR] ; 
7* SET * OF SECTORS - SET UP FOR CALL TO MINIDISK */ 
NSSEC=(A=L); L=(A=DISKSOP) ; 
DE=STACK; BC=STACK; 
REPEAT; 
CALL (MINISDISK] ; 
IF (A::@) !ZERO THEN CALL ({ ERROR] ; 
DE=(HL=200H+DE) ; BC=BC+1; L=(A=DISKSOP) ; 
NSSEC=( A=NSSEC,-1); /“* READJUST COUNTERS */7 
UNTIL (A::0@) ZERO; 
END DISKSIO; 


EOF 
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SRRRKERRERKRRRRRRKKRRRRERKKBRAKRRKKRRKKRRRB KK BKK BRR KK HK 


7k * j%## * * MTS COMMAND PROCESSOR (MCP) *K ® K KS 
S RERRKKAK KKK KK KKK HHA KK KKKKKK KKK AK HK KKK KARKKKKKKKKKKK KK 


19F AH: 
MCP: PROCEDURE; 


S KRKRKAKRRBRKKRAK RKEKRKKHKKHKRK KAR KK KK KKK K KARA KR REKK KKK KKKKKKK ZS 
7* MCP IS AN INDEPENDENT MODULE OF THE MICROCOMPUTER 
TIMESHARED SYSTEM (MTS) DEVELOPED FOR THE NPS 
MICROCOMPUTER LABORATORY SYCOR 449 SYSTEM. 
THIS MODULE IS CALLED BY THE MTS MONITOR TO 
PROCESS ANY SYSTEM COMMANDS ENTERED THROUGH THE 
TERMINAL INTERFACE BY THE USER. MTS COMMANDS ARE 
VALIDATED BY MCP AND THEN SENT TO MTS SERVICE 
CALL CONTROL MODULE FOR FURTHER PROCESSING. 
MCP IS WRITTEN IN PLM FOR TWO REASONS: 
(1) TO UTILITZE A HIGH-LEVEL LANGUAGE TO 
FACILITATE THE DESIGN AND DEBUGGING TASK 
DURING THE DEVELOPMENT OF MCP. 
(2) TO PROVIDE A PLM PROGRAM WHICH ILLUSTRATES 
THE FUNCTION CALL REQUIREMENTS 
FOR ANY USER PROGRAM TO INTERFACE WITH MTS. 


THERE ARE TWO PRIMARY DIFFERENCES BETWEEN THE MCP 
INTERFACE WITH MTS AND A USER PROGRAM/MTS INTERFACE. 
(1) ONE IS THE ENTRY PORT. THE MTS INTERFACE PORT 
FOR USER PROGRAMS IS 2000@H. THE ENTRY PORT 
FOR MCP IS 1FOOH. 
(2) THE OTHER DIFFERENCE IS THAT USER PROGRAMS 
DO NOT HAVE TO BE CONCERNED WITH SAVING 
AND RESTORING THE MTS MONITOR STACKPTR. 


MCP WILL PROCESS THE FOLLOWING SYSTEM COMMANDS 
ENTERED AT THE TERMINAL BY THE USER: 


COMMAND PARAMETERS 
LOGIN <DISK NUMBERD /< KEY> 
QUIT NONE 


ATTACH <DRIVE LETTER <DISK NUMBER /”< KEY? 
PROTECT <DISK NUMBER “< KEY> 

RESTRICT <DISK NUMBER? ~“< KEY? 

UNPROTECT <DISK NUMBERD /“< KEY 

SIZE «MEMORY SIZE? 


WHERE 

<DRIVE LETTER - DESIGNATES A VIRTUAL FLOPPY DISK 
DRIVE TO BE ONE OF THE LETTERS 
A THRU d. 

<DISK NUMBER - SPECIFIES A VIRTUAL FLOPPY DISK 
NUMBER FROM 9-31. 

<DISK NUMBER - SPECIFIES A DISK NUMBER FROM 0-31. 

/< KEY? - SPECIFIES A 4+ CHARACTER KEY CODE. 

«MEMORY SIZE> - SPECIFIES THE SIZE OF THE USER 
PROGRAM AREA. 


*/ 
SRRKEREKK KEKE AREER ERE KE RE RK ERE KBR KK RRR ER RRR RE RARE A 


SRERRRE RRA KEKE KK KKB KBE KER EE KKK ERK ERB KR BRR RK RR 
7% *# *® * MCP LITERAL AND DATA DECLARATIONS * * */ 


S RRR KARA KKM RRR RRA RRR KARR RR ERR RR KE REE RRB RAK RR KKK Z 
SR * #8 * * MCP LITERAL DECLARATIONS * *® *® 8 X/7 


DECLARE 
|i at LITERALLY *’LITERALLY’ , 


MTS LIT '1F00H’,7* INTERNAL MTS PORT *S 
MTSS8CMDSREADY Lif OFonH’ . 
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INVALIDSCMD |i) is Ree iy ’ 


TRUE LIT “OFFH’ , 
FALSE LIT ’@’ ; 
CR LIT °@DH’ , 
LF LIT ’@AH’ , 
TAB Ein 9° : 


MAXSCBUFFSSIZE LIT ’°64’  , 


TERMINALSSTATUS LIT °8’ 
READSTERMINAL pit 9. 
WRITESTERMINAL LIT ’* 10’ 


READSMTSSCMD Lite » %¢* INTERNAL MTS CMD */ 
ATTACH LIT °°’ » “*MNTS SYSTEM CMD NUMBERS*/ 
MTSSMSG LIT °1’ , 
LOGIN ir 72> , 
PROTECT LIT ’3”’ 1 
QUIT LIT ° 4° ‘ 
RESTRICT LIT °3’ ’ 
SIZE LIT ’6’ ’ 
UNPROTECT |) Oe eer ges : 


SRF *# * *# * MCP GLOBAL DECLARATIONS t £ KF KR RS 


DECLARE 
CBUFF (64) BYTE, “* CMD BUFF FOR MTS COMMAND x- 
CBUFFSLENGTH BYTE, “* NUMBER OF CHARS IN CBUFF *~/ 
CBUFFSPTR BYTE; “* PTS TO NEXT CHAR IN CBUFF 
TO BE PROCESSED */ 
DECLARE 
CHAR BYTE, 7“* USED rOR CHAR MANIPULATION */ 
VALUE (2) BYTE, “* VECTOR FOR CONVERTING NUMBERS x*/ 


PARAMETERS(6) BYTE; “*PARAMETERS FOR MTS SYSTEM CALLS*~/ 


SRBRRRBKRARARRBRRBRRARBEA RA BRR RRR RR KBR RRB RAR RRRARARRBRRARR BBR 


fe * *# * * MIS INTERFACE PROCEDURES * * * *® */ 
SRRKKKAKKAKAKKAKKKKKAKKKAKAHAKKKAKKBAK KAA KK KAKA KKK KKK KKK KKK / 


SRERRARRERERERRE EEK EERE REE E RRB 

A MTS1- PROVIDES MTS INTERFACE FOR FUNCTIONS 
WHICH DO NOT REQUIRE A RETURN VALUE. 
°F’ CONTAINS THE MTS CMD NUMBER; ‘A’ CONTAINS 
THE PARAMETER OR ADDRESS TO LIST OF PARAMETERS. 
CALLED BY: ERRORSMSG; SENDSMTSSCMD 

7 

MTS1: PROCEDURE (F,A); 

DECLARE F BYTE, A ADDRESS; 

GO TO MIS; 

END MTS1; 


TECC TERETE SESE STS SOLOS PECL ELS S STL SS SSeS SSS SP SSSS ES SS OG 
1% MTS2- PROVIDES MTS INTERFACE FOR FUNCTIONS 
WHICH REQUIRE A RETURNED VALUE. 
°F’ AND ’A’ ARE THE SAME AS IN MTS1. 
CALLED BY: READSCHAR; SENDSMTSSCMD 
*/ 
MTS2: PROCEDURE (F,A) BYTE; 
DECLARE F BYTE, A ADDRESS; 
GO TO MTS; 
END MTS2; 


SKRKERKRE KK KK KK KAR KEK KKK KAR KK BKK KK KAA RA KK KAKA RARERERRRK 
SR A *# * *® * MCP PRIMITIVE PROCEDURES * * * #/ 
SRKREKKREKKKEKKKAK KKK RK AK KKK BAK KKK KAKA KKK KKK KKK KA KZ 


READSCHAR: PROCEDURE BYTE; 


RETURN MTS2( READSMTSSCMD, @); 
END READSCHAR; 
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CBUFFSNOTSEMPTY: PROCEDURE BYTE; 
RETURN CBUFFSPTR < CBUFFSLENGTH; 
END CBUFFSNOTSEMPTY; 


DEBLANK: PROCEDURE; 

DO WHILE (CBUFFSPTR < CBUFFSLENGTH) AND 
(CBUFF(CBUFFSPTR) = * °) OR 
(CBUFF(CBUFFSPTR) = TAB); 

CBUFFSPTR = CBUFFSPTR + 1; 
END; 
END DEBLANK; 


ERRORSMSG: PROCEDURE; 
CALL MTSI(MTSSMSG, INVALIDSCMD) ; 
GOTO FINI; 
END ERRORSMSE; 


IESE LE ESL SL SSE SES ESE SS SS SLOSS SSP SSS SPSS SOSEPPEP OSES ESS + + U4 
Vee FILLSCBUFF - CHECK CURRENT TERMINAL STATUS FOR 
MTS COMMAND. IF NOT, EXIT; OTHERWISE FILL THE 
COMMAND BUFFER WITH THE MTS COMMAND. 
CALLED BY: MCP MAIN CONTROL 
x7 
FILLSCBUFF: PROCEDURE; 
IF MTS2( TERMINALSSTATUS, 09) =MTSSCMDSREADY THEN 
DO; 
CBUFFSPTR, CBUFFSLENGTA 0; 
DO WHILE (CBUFFSLENGTH <= MAXSCBUFFSSIZE) AND 
( ( CBUFF( CBUFFSLENGTH) : = READSCHAR)<>CR); 
CBUFFSLENGTH = CBUFFSLENGTH+t1; 
END; 


Te 


END; 
END FILLSCBUFF; 


INITIALIZE: PROCEDURE; 
DECLARE I BYTE; 
DO I=9 TO 35; 
PARAMETERS(C I) = OFFH; 
END; 
VALUE(@) , VALUE( 1) = @; 
END INITIALIZE; 


A RRERRKK RK RHK RHE BKK KEKE RE ERR RK RK RK RK RK KKK KE KEK KERR KK / 


LETTER: PROCEDURE (C) BYTE; 


END LETTER; 


FECL ET CETTE PEPER EES TPS SSS S LSS LESS SSS SDSS SSDS SLL SDS + OG 
7% NUMBER - RETURN TRUE IF ’C’ IS A NUMBER. 
CALLED BY: GETSNUMBER; GETSPARAMETERS; 
ATTACHSCMD; SIZESCMD 
*7 
NUMBER: PROCEDURE (C) BYTE; 
DECLARE C BYTE; 
RETURN C >= °’@’ AND C <= °9’; 
END NUMBER; 


PRRRRRRRREREE RE REERRREEREREEERRRRRA RR RRR RE RRB BR EB RZ 
7 READSCMDSLINE - READS CHAR FROM COMMAND BUFFER; 
CONVERTS LETTERS FROM LOWER TO UPPER CASE, 


IF REQUIRED. 
CALLED BY: GETSKEY; GETSNUMBER; GETSPARAMETERS ; 


199 





ATTACHSCMD; SIZESCMD; MCP MAIN CONTROL 
*/ 


READSCMDSLINE: PROCEDURE BYTE; 
DECLARE C BYTE; 


IF €C:=CBUFF(CBUFFSPTR)) >= 61H “* LOWER CASE A */ 
AND C <= TAH THEN /* LOWER CASE Z */ 
C = C AND SFH; /* CONVERT TO UPPER CASE */ 
CBUFFSPTR = CBUFFSPTR+1; 
RETURN C; 


END READSCMDSLINE; 


AST SESS POLS SPSS SSeS SCOSS SSE So SOLOS E SOS OSE Se SS a tt oa 
/* SCANSTOSBLANK - SCAN TO NEXT BLANK OR TAB CHAR. 
CALLED BY: MCP MAIN CONTROL 
*/ 
SCANSTOSBLANK: PROCEDURE; 
DO WHILE (CBUFFSPTR<X CBUFFSLENGTH) AND 
(CBUFF( CBUFFSPTR)<>’ °) AND 
( CBUFF( CBUFFSPTR) <> TAB); 
CBUFFSPTR = CBUFFSPTR+1; 
END; 
END SCANSTOSBLANK; 


S KRRHKKAKKHK KKK KK KKK KKK KKKKEKKKKKKAKE KAKA KEKE RK EK KKK KK 
7*  SENDSMTSSCMD - "CMD’ CONTAINS THE MTS CMD NUMBER 
AND *PARAMETER’ CONTAINS THE ACTUAL PARAMETER 
OR THE ADDRESS OF THE ACTUAL PARAMETER LIST. 
TWO MTS SYSTEM CALLS ARE MADE: 
(1) MTS2 - PROCESS SYSTEM CMD, WHICH RETURNS 
A RESPONSE. 
(2) MTS1 - DISPLAY RESPONSE AT USER TERMINAL. 
*/ 
SENDSMTSSCMD: PROCEDURE (CMD, PARAMETER ; 
DECLARE CMD BYTE, PARAMETER ADDRESS; 
CALL MISICMTSSMSG, MTS2CCMD,PARAMETER) ) ; 
END SENDSMTSSCMD; 


LS RRR HK RK KR BRK RR RRR RR RRR ORR ER RR RB OR BR EK RR RR RR OR RR EE RR ER EK Z 
fk * # * * UTILITY PROCEDURES * * * *® *® =X */ 
A RRR RKHR RRR RR RBH BK RR RK BRK ER RR RRR RB RR ORR ER ROR RR EEK KR RK KA 


7 RBRKARE RAR KK RARER RI IR EE RAR ROK RR RAR IE RR RAB RR ROK BK KK 

7 CONVERTSVALUE ~- CONVERT ASCI} CODE IN ’ VALUE’ 
TO APPROPRIATE BINARY VALUE. THE RANGE OF VALUES 
TO BE CONVERTED ARE FROM 0-31, 
CALLED BY: GETSNUMBER; 

*/ 

CONVERTSVALUE: PROCEDURE BYTE; 

IF VALUE( 1) = @ THEN “*ONLY A SINGLE DIGIT TO CONVERT 
RETURN VALUE( 0) -3048; 

ELSE 7* TWO DIGITS TO CONVERT */ 
RETURN ( ( VALUE( 0) -30H) *10+( VALUE( 1)-30H)) ; 

END CONVERTSVALUE; 


SP RRKKKKKKK KEK K ERK KER KK BRR EK RB AE EE ER RZ 
1% GETSKEY - GET THE <KEY> PARAMETER, IF ENTERED; 
STORE KEY IN THE PARAMETER LIST STARTING AT I. 
CALLED BY: ATTACHSCMD; GETSPARAMETERS ; 
*/ 
GETSKEY: PROCEDURE (I); 
DECLARE I BYTE; 


IF CBUFFSNOTSEMPTY THEN /*NEXT CHAR MUST BE ‘7’ -/ 
Do; 
IF (CHAR: =READSCMDSLINE) = ’/7’ THEN 


DO WHILE (1<6) AND CBUFFSNOTSEMPTY; 
PARAMETERS ( 1) =READSCMDSLINE; 
font): 

END; 


19} 


ELSE 7k *7” TS USED TO INDICATE *7 
CALL ERRORSMSG; “* <KEY? AND IS REQUIRED. */ 


END; 
END GETSKEY; 


SRRRRRRRR RARER RAR RRB BRR RR RR BR RRR OR ER RR OE ER RR OR RRR EK EK RK KK KK / 
7% GETSNUMBER - GET <DISK NUMBER PARAMETER AND 
CONVERT [T FROM ASCII TO BINARY. STORE THE 
RESULT IN PARAMETER LIST AT ’I’. UPON ENTRY, 
*CHAR® HOLDS THE FIRST DIGIT. 
CALLED BY: ATTACHSCMD; GETSPARAMETERS ; 
KS 
GETSNUMBER: PROCEDURE (1); 
DECLARE I BYTE; 
VALUE(®) = CHAR; 
IF CBUFFSNOTSEMPTY AND 
NUMBER( CHAR: = READSCMDSLINE) 
THEN 7* TWO DIGIT DISK NUMBER */ 
VALUE( 1) = CHAR; 
PARAMETERS( 1) = CONVERTSVALUE; 
END GETSNUMBER; 


A RERRRRARRRAH RRR KR RK KR RRR RK RRR KR K RR KKK RR KKK KRKRKRKKEKR / 
ae GETSPARAMETERS - USED TO GET THE <DISK NUMBEF 
AND <KEY> PARAMETERS. GENERATES ERROR MSG IF 
NEAT CHAR [S NOT A NUMBER. 
CALLED BY: LOGINSCMD: GETSREQUIREDSPARAMETERS;; 
*K/ 
GETSPARAMETERS: PROCEDURE; 
IF NUMBER( CHAR: =READSCMDSLINE) THEN 
DO; 
CALL GETSNUMBER( 0) ; 
CALL DEBLANK; 
CALL GETSKEY( 1); 
END; 
ELSE 
CALL ERRORSMSG; 
END GETSPARAMETERS ; 


A RRR RKRARK RRR RRR REAR RRR KR RK EEE RR RK RR KR RR RE KARE HK RR KK KKK / 
7*® GETSREQUIREDSPARAMETERS - GETS THE <DISK NUMBEF 
AND <KEY> PARAMETERS FOR THOSE SYSTEM CMDS FOR 
WHICH THESE PARAMETERS ARE REQUIRED (NOT 
OPTIONAL). GENERATES ERROR MSG IF PARAMETERS 
ARE NOT THERE. 
CALLED BY: PROTECTSCMD; RESTRICTSCMD; UNPROTECTSCMD 
*K/ 
TTSREQUIREDSPARAMETERS: PROCEDURE; 
IF CBUFFSNOTSEMPTY THEN 
CALL GETSPARAMETERS ; 
ELSE 
CALL ERRORSMSE; 
END GETSREQU [RED&SPARAMETERS ; 


A RRR RRR RR RRR ER RR RR AR RE AB RR OK OE OR OE OR OR EK AROS FE OR OE OR RRR RR RR RRB RR KZ 


fe * * *# * *® SYSTEM CMD PROCEDURES * * * * #7 
ELSLTSESSESSEDSE SPSS ESS SEEDS tt SS SoS + + SS tS SS SS SS SS SS SS oe 


A RRR ERR RR RRR AOR ER OR ER RR ER OR ER AE ROR AR RR BR ER BOR ROR RRR ROR RRB KOR KZ 
tae ATTACHSCMD - 

FORM: ATTACH <DRIVE LTR <DISK NPR /“< KEY? 

ALL THE PARAMETERS ARE OPTIONAL, HOWEVER 

<KEY> CAN NOT APPEAR WITHOUT IT’S ASSOCIATED 

<DISK NUMBER>. WHEN PARAMETERS ARE ENTERED 

THEY MUST BE IN THE ORDER [NDICATED. 

CALLED BY: MCP MAIN CONTROL 


*/ 
ATACHSCMD: PROCEDURE; 
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IF CBUFFSNOTSEMPTY THEN 


DO; 

CHAR = READSCMDSLINE; 

IF LETTER( CHAR) THEN 7* <DRIVE LETTER ®/ 
DO; 
PARAMETERS ( @) =CHAR-41H; “*CONVERT TO BINARY*/ 
CALL DEBLANK; 
IF CBUFFSNOTSEMPTY THEN ~“* MORE PARAMETERS */ 

CHAR = READSCMDSLINE; 

END; 

IF NUMBER(C CHAR) THEN 7* <DISK NUMBEFP? */ 
DO; 
CALL GETSNUMBER( 1); 
CALL DEBLANK; 
CALL GETSKEY( 2); 7*> 5 KEY */ 
CALL DEBLANK; 
END; 

END; 


IF CBUFFSNOTSEMPTY THEN 
CALL ERRORSMSG; 


ELSE 
CALL SENDSMTSSCMD( ATTACH, . PARAMETERS)? ; 
END ATTACHSCMD; 


IE SEES EEL ELE SEEDS ESE SS SLEDS EDS DEP EE STEP ESSPSESPSSPESS SSCS LT OA 
* LOGINSCMD - 
FORM: LOGIN <DISK NUMBER /< KEY 
THE PARAMETERS ARE OPTIONAL BUT < KEY? CAN NOT 
APPEAR WITHOUT <DISK NUMBER . 
CALLED BY: MCP MAIN CONTROL 
*/ 
LOGINSCMD: PROCEDURE; 
IF CBUFFSNOTSEMPTY THEN 
CALL GETSPARAMETERS ; 
CALL SENDSMTSSCMD( LOGIN, . PARAMETERS}? ; 
END LOGINSCMD; 


ELL SLE SELDSDSE SSP OSE LL SE SSE DE De PS Stet SSS ILS ESS SS SSS Ye 
A PROTECTSCMD - 
FORM: PROTECT <DISK NUMBER /< KEY? 
THE PARAMETERS ARE REQUIRED. 
CALLED BY: MCP MAIN CONTROL 
*S 
PROTECTSCMD: PROCEDURE; 
CALL GETSREQUIREDSPARAMETERS ; 
CALL SENDSMTSSCMD( PROTECT, .PARAMETERS) ; 
END PROTECTSCMD ; 


SRERRRR ER RE RRR RRR RR EER AR RRR ARE TER RR RR AR BE AR RE AR OE OR RR BRR / 
7 QUITSCMD - FORM: QUIT 
NO PARAMETERS . 
CALLED BY: MCP MAIN CONTROL 
*7/ 
QUITSCMD: PROCEDURE; 
CALL SENDSMTSSCMD( QUIT, ®) ; 
END QUITSCMD; 


SRERRERERRERRER EERE RE RRB ERR RE RRR EE ER IE ER RE EE ER RR EK / 
7 RESTRICTSCMD - 
FORM: RESTRICT <DISK NUMBER /< KEY? 
THE PARAMETERS ARE REQUIRED. 
CALLED BY: MCP MAIN CONTROL 
#7 
RESTRICTSCMD: PROCEDURE; 
CALL GETSREQU IREDSPARAMETERS ; 
CALL SENDSMTSSCMD( RESTRICT. . PARAMETERS) ; 
END RESTRICTSCMD; 
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SRRKRERAKK AK KKK HK KKK KKK KK KK KKB EKER RIOR ERE EE 
7% UNPROTECTSCMD - 
FORM: UNPROTECT <DISK NUMBER ~< KEY 
THE PARAMETERS ARE REQUIRED. 
CALLED BY: MCP MAIN CONTROL 
*/ 
UNPROTECTSCMD: PROCEDURE; 
CALL GETSREQU IREDSPARAMETERS ; 
CALL SENDSMTSSCMD( UNPROTECT, . PARAMETERS) ; 
END UNPROTECTSCMD; 


SEREREKAK KKK KKK KAKA KKK KARR KKK KEKE ERE EKER EEK KE 
7% SIZESCMD - 
FORM: SIZE < MEMORY SIZE> 
THE PARAMETER IS REQUIRED. 
CALLED BY: MCP MAIN CONTROL 
*/ 
SIZESCMD: PROCEDURE; 
IF CBUFFSNOTSEMPTY THEN 


po; 
IF NUMBER( CHAR: =READSCMDSLINE) THEN 
DO; /* GET MEMORY SIZE PARAMETER */ 
CALL GETSNUMBERC 0) ; 
CALL SENDSMTSSCMD(SIZE, PARAMETERS(@)); 
END; 
ELSE /* PARAMETER MUST BE NUMBER 7 
CALL ERRORSMSG; “* SPECIFYING MEMORY SIZE *-v 
END; 
ELSE /* CBUFF EMPTY - ERROR */ 
CALL ERRORSMSG; “* PARAMETER REQUIRED ¥*/ 


END SIZESCMD; 


SRK RK KKK RR RRR ERR RR KEK BK EEK RK RRR EE EE OR ER ECE OR EE KEK / 
fk * * MTS COMMAND PROCESSOR (MCP) MAIN CONTROL * #/ 


7k ®# %*# CALLED BY: MIS MONITOR MODULE ORS 
SRR RAKE ABR KR AK BEB BB BRI RK BBB KOK OR IR OR RRR OB RR OK BR OR IRB KR RR KEK EB RK / 


DECLARE STACK (20) ADDRESS,OLDSP ADDRESS; 


OLDSP = STACKPTR; /* SAVE MTS STACK POINTER 7, 
STACKPTR = .STACK( LENGTH( STACK) ); /* SETUP MCP STACKPTR */ 
CALL INITIALIZE; /* INITIALIZE DATA STRUCTURES */ 
CALL FILLSCBUFF; /* GET MTS COMMAND 7 
CALL DEBLANK; /* SCAN TO FIRST NONBLANK CHAR *#/ 
IF CBUFFSNOTSEMPTY THEN /’* PROCESS CMD BUFFER */ 

DO; 

CHAR = READSCMDSLINE:’* GET FIRST LETTER OF CMD */ 


CALL SCANSTOSBLANK; 7* SCAN TO NEXT BLANK, BECAUSE 
ONLY THE FIRST LETTER IS USED 


TO DETERMINE THE CMD 7 
CALL DEBLANK; 
IF CHAR = ‘A’ THEN /* ATTACH */ 
CALL ATTACHSCMD; 
ELSE 
DO; 
IF CHAR = ’L* THEN /* LOGIN */ 
CALL LOGINSCMD; 
ELSE 
DO; 
IF CHAR = ‘P’ THEN /* PROTECT x*/ 
CALL PROTECTSCMD; 
ELSE 
DO; 
IF CHAR = °’ THEN /* QUIT a 
CALL QUITSCMD; 
ELSE 


IF CHAR = ’°R’ THEN /* RESTRICT *7 
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END; 
FINI: 


CALL RESTRICTSCMD; 
ELSE 
DO; 
IF CHAR=’S’° THEN /“* SIZE */ 
CALL SIZESCMD; 
ELSE 
DO; 
IF CHAR="’U’ THEN/*UNPROTECT*~ 
CALL UNPROTECTSCHMD; 
ELSE 
CALL ERRORSMSG; 
END; 
END; 


STACKPTR = OLDSP; /“* RESTORE MTS MONITOR STACKPTR */ 


END MCP; 


EOF 
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